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CHAPTER 1 



INTRODUCTION 



The PDP-9/339 Graphics Subprogram Package consists of a group of 
subroutines and functions which may be called by user programs 
written in FORTRAN IV or Macro-9 . Its purpose is to provide a 
simplified means of using the 339 graphic display device without 
requiring detailed familiarity with the hardware. Its function 
is to compile display commands at the direction of the user and 
allow him to define display elements and direct the linking, dis- 
playing, deleting, etc., of those elements. 

With the exception of Section 3, this manual is concerned with 
the 339 Graphics Subprogram Software Package and its use in 
developing 339 display source programs in FORTRAN IV. 

Section 3 presents a description of the 339 System I/O Device 
Handler and the MACROS which comprise it. 

The subprograms which make up the 339 Graphics package may be 
called using MACRO-9 .GLOBL pseudo-ops as well as FORTRAN IV 
CALL statements. Therefore, the MACRO equivalent of each CALL 
statement described is also given. All programming procedures 
described, however, are applicable to FORTRAN-level programs only, 

Detailed descriptions of the 33 9 hardware and the development of 
assembly-language source programs for the 339 are given in the 
339 User's Manual and associated PDP-9 ADVANCED Software System 
Manuals (refer to Table 1-1) . 
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1.1 REFERENCE DOCUMENTS 

The available documents which contain information useful in pro- 
gramming the 339 Programmed Buffered Display System are listed 
and described briefly in Table 1-1. 

Table 1-1. Applicable Reference Documents 



DOCUMENT 



DESCRIPTION 



1. 339 Programmed Buffered 
Display User's Handbook 
DEC-09-16FA-D 



2. PDP-9 ASSEMBLER 
DEC-9A-AMZA-D 

3. PDP-9 FORTRAN IV 
DEC-9A-KFZA-D 



PDP-9 Keyboard Monitor 

Guide 

DEC-9A-MKFA-D 

PDP-9 Utility Manual 

DEC-9A-GUAB-D 



Contains descriptions of the physical 
and functional characteristics of the 
339 Display System and presents the 
Symbolic Codes unique to the 3 39 which 
are used in addition to the MACRO-9 
codes for the preparation of 339 
assembly language programs. 
Provides the information required for 
the preparation of MACRO-9 Assembly 
language source programs. 
Provides the reader with the informa- 
tion required to prepare FORTRAN IV 
programs for compilation and execution 
within the PDP-9 ADVANCED Software 
System. 

Provides keyboard operating instructions 
and procedures for PDP-9 ADVANCED Soft- 
ware System Programs. 

Contains individual detailed descrip- 
tions of the Utility programs supplied 
with the PDP-9 ADVANCED Software System. 
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1.2 REQUIRED 33 9 SYSTEM PROGRAMS 

The programs which must be loaded into the system to provide the 
capabilities described in this manual are listed in Table 1-2 . 
These programs are assembled by MACRO-9 or 9A into relocatable 
binary files which may be loaded by the Linking Loader. System 
program UPDATE-9 (refer to Utility Manual) may be used to incor- 
porate these programs into either the System Library or a User 
Library; if they are to be included in the System Library, all 
unused device handlers and routines must be removed to provide 
space . 

Table 1-2, Required 339 System Programs 



Program Name 
DYA.4 

MAINFL 



SUBPIC (for VC38, 
or SUBPVA for VA3 9) 

INTPT 



TRCK2 



BLANK 



DYLDR 



DYCHR 



Capabilities 

All I/O Macros (.INIT, .READ, 
.WRITE, .WAIT, .WAITR, .CLOSE 

DINIT, DCLOSE, SETPT, PLOT, 
RSETPT, REPLOT, DELETE 

LINE, TEXT, COPY, PRAMTR, 
GRAPH 

LTPN, PBTN 



TRACK 



Length 



BLANK, UNBLNK 



DYSET, DYLINK 



Character Table for VC3 8 (Loaded 
by the Monitor switch "VC38 ON") 



1033j 
655 

650, 

424 



10 



656 
425 

272 

186 



457 
303 



46 s 
38 

276 
190 



677 
447 



10 

8 
10 

8 
10 

8 

10 

8 
10 

8 

10 

8 
10 
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1.3 SYSTEM DESCRIPTION 

The Type 339 Programmed Buffered Display (Frontispiece) is an 
on-line system manufactured by Digital Equipment Corporation for 
operator observation, manipulation, and alteration of computer- 
stored data. The display system consists of a precision incre- 
mental CRT display, display control logic, light pen, pushbutton 
control box, and interface logic for communication with a PDP-9 
computer. The computer processor and the display control logic 
share the computer memory, and are interdependent as a system. 

The computer system furnishes rapid data storage and retrieval of 
data for display as dots, lines, curves, or characters (optional) 
on the face of the CRT. The operator can manipulate or alter the 
data by using the light pen, pushbutton control box, or the keys 
and switches on the computer console. 

The Type 339 Programmed Buffered Display interfaces to the PDP-9 
general purpose computer through the optional Direct Memory Access 
Channel Multiplexer Adapter, Type DM09A. The result is a multi- 
processor system in which both the display processor and the com- 
puter's central processor operate out of the same core memory on 
a time-shared basis. 

The direct memory access channel (DMA) interface permits the 339 
Display to operate from the PDP-9 memory, obtaining its instruc- 
tions on a cycle-stealing basis while allowing the PDP-9 to process 
a completely separate program. The PDP-9 can quickly interrupt this 
program, to service real-time interrupts generated by the operator, 
the display, or other external devices. The use of a common memory 
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for the display and the PDP-9 allows the computer to update the 
display files quickly, with a minimum of communication problems. 

The 339 display system executes instructions contained in lists 
(groups of consecutive locations) in the shared memory. These 
lists are compiled from FORTRAN or symbolic language (MACRO-9) 
source programs or are loaded into memory from an external source. 

Once a display program is loaded and compiled, the PDP-9 supplies 
the starting address of the list to the 339 display system and 
commands the display to begin. At this point, the PDP-9 is free 
to execute a completely separate program, pausing only to service 
interrupts caused by the display light pen, pushbutton control box, 
or other external source. 

Display programs may consist of continuous loops of instruction or 
of chains comprised of several widely scattered lists. In either 
case the display is kept running continuously by the use of jump or 
jump-to-subroutine instructions which can be used to (1) direct 
the display processor, (2) proceed to the next list, or (3) 
return to the beginning of the current list. Skip instructions, 
used by the type 339 display, cause the display processor to test 
for specified conditions and to branch to different programs if the 
conditions are met. 

1.3.1 Easy Man/Machine Interaction 

The Type 339 standard input features, the light pen and pushbutton 

control box, provide the user with versatile means of communication 



1-5 



with the display system. The light pen allows the operator to 

"point" to a particular portion of the display and indicate that a 

change is desired. With tracking subroutines, the light pen can 
be used to "draw" lines and figures. 

The pushbutton control box also provides a simple means of com- 
munication with the system. It features 12 pushbuttons, in two 
banks of 6 buttons each, a manual reset button for each bank, 
and a manual interrupt button that can be used to cause a PDP-9 
program interrupt. 

The activation of any pushbutton is sensed by the computer which 
then enters an interrupt mode. In the interrupt mode the processor 
will perform any operation specified as the response to the activated 
pushbutton. 

1.4 33 9 SOFTWARE OPERATIONS 

A functional block diagram illustrating the overall software 
operations performed in the 339 system is shown in Figure 1-1. The 
FORTRAN IV programs devised by the user will consist of standard 
FORTRAN IV statements and calls for routines unique to the 339 
Graphics system: 

1) MAIN DISPLAY FILE ROUTINES - Calls for these routines 
together with the standard FORTRAN IV statements will, when com- 
piled, build a "Main Display File" in a portion of the PDP-9 memory 
assigned to the 339 Display system. The commands contained by this 
file will, during execution of the program, link together individual 
Subpicture Display Files into a CRT display command chain which will 
cause the desired image to be displayed. 
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FORTRAN PROGRAM 
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MAIN DISPLAY FILE 
ROUTINES 

DINIT 
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DELETE 
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INPUT 
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Figure 1-1, 339 Graphics Software Operations 



2) SUBPICTURE ROUTINES - Calls for these routines together 
with standard FORTRAN statements will, when compiled, form 
individual self-contained Subpicture Display Files. Each sub- 
picture file contains all of the commands needed to generate a 
specific image on the 339 display CRT. These files are accessed 
by the Main Display File in any required order or sequence during 
the execution of the display program. The Subpicture files are 
normally programmed and compiled separately from the Main Display 
File program to build a library of accessible graphics (i.e. complete 
or partial pictorial images) from which complex images may be 
formed. 

3) INPUT ROUTINES - Calls for 339 input subroutines which 
permit the use of the light pen and pushbuttons may be made in the 
FORTRAN program to direct display operations. These are used to 
control the flow of the program upon the occurrence of light pen 

or pushbutton interrupts. In this way program paths can be activated 
which modify the display command chain and, therefore, modify the 
picture. 

1.5 339 DISPLAY DEVICE 



The 339 system uses a 16-inch Cathode Ray Tube (CRT) which provides 
a usable display area 9 3/8 by 9 3/8 inches in size as its display 
device. 

For programming purposes, the CRT display area (face) may be con- 
sidered a dot matrix comprised of over a million (1024 by 1024) 
illuminable points (dots) spaced at about 0.01 inch intervals (see 
Figure 1-2). For display purposes, the matrix dots are illuminated, 
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Figure 1-2, 339 Graphics System Display Area 



selectively, by an electron beam generated within the CRT. The 
illumination of a series of dots in any direction results in a 
visually continuous line of uniform resolution. Images are 
developed on the 339 CRT display by the controlled generation and 
positioning of the CRT electron beam in direct response to a 
programmed instruction list processed by the 339 system. 

1.5.1 Programmable Display Area (Refer to Figure 1-3) 
Although the CRT display area is physically limited to a 9 3/8 by 

9 3/8 inch area, the hardware capabilities of the 339 system permit 
the user to develop images up to 8 times the display area in size. 
For programming purposes, the available (programmable) drawing area 
may be considered as a 75 by 75 inch sheet of paper on which one or 
more images may be developed. 

Viewing any part of the programmable drawing area is accomplished 
by program features which, in effect, cause the "drawing sheet" to 
move under the viewing window (i.e. CRT display) to any desired 
position. 

1.5.2 Program-controlled CRT Characteristics 

Display Scale and Intensity are variable display characteristics 
which must be specified by the programmer in each display program. 
Two control functions, Light Pen on/off and Blink on/off are also 
programma hie . 

1.5.3 Scale 

As previously described, images are generated on the display CRT by 
the controlled intensification of points within the display dot 
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Figure 1-3, Programmable Display Area 



matrix. Scale controls the amount of space to be left between the 
intensified dots during a display operation. There are 4 possible 
scale settings (0,1,2, and 3); the settings and the manner in which 
each affects the display are illustrated in Figure 1-4. 

Figure 1-4, Scale Settings 
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As illustrated in Figure 1-4, scale settings affect both the size 
and appearance of displayed lines or symbols. For example, at a 
setting of 3, each point will be distinguishable; at a setting of 
either or 1 , however, lines and symbols will appear to be continu- 
ous . 

1.5.4 Intensity 

The intensity at which selected matrix dots are to be illuminated 

during a display operation is specified by the user at any one of 

eight possible settings. The available settings range in increasing 

brightness from to 7 with setting being not visible, and 7 very 

bright. 

Scale and intensity settings are interrelated and must be carefully 
selected to insure that the best possible display image is obtained. 
Scale setting affects the length of the line proportionately, since 
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the increments given are actually a count of intensified points 
rather than absolute points. Therefore, it affects the intensity 
in inverse proportion since fewer points are glowing. Thus if the 
intensity of a line must remain constant with a change in scale set- 
ting, the intensity setting must be changed by an equal amount. At 
a scale setting of 2, the points are clearly separated and the 
effect on intensity becomes secondary. 

1.5.5 Blink Control Function 

The ability to cause a displayed image or portion of the image to 
blink on and off at a visually discernible rate is a function which 
may be specified by the programmer. 

The display "Blink" feature may be specified for any display file 
whether it represents an entire display or specific portion of a 
display. This feature is particularly useful when it is necessary 
to draw attention to specific displayed items. 

The blink on/off control element is represented by an integer 
variable the value of which could, if desired, be made a function 
of the state of one of the control pushbuttons on the 339 control 
box. 

1.5.6 Light Pen Control Function 

The ability to use the light pen supplied with the 339 system is 
also a programmed function; the user must specify if the light pen 
is to be enabled or disabled throughout the display operation or is 
to be controlled from the 339 control box. 
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1.5.7 Dimensioning Displays 

In programming displays, the dimensions of the graphic elements used 
to form the picture are specified in terms of Display CRT Raster 
Units. The basic Raster Unit is defined as the distance between any 
two of the display CRT matrix illuminable points. 

A Display Raster Unit, however, is seen as the distance between any 
two sequentially illuminated dots of a display. The size of a Dis- 
play Raster Unit is directly dependent on the SCALE setting speci- 
fied for the picture being developed. 

In relation to display dimensions, SCALE settings are to be regarded 
as distance multipliers; the manner in which a specified dimension 
(e.g. 109 Raster Units) varies in actual displayed length according 
to each of the possible SCALE settings is illustrated in Table 1-3. 

Table 1-3, Dimensional Effect of SCALE Settings. 

DISPLAYED LENGTH IN VIEWED LENGTH 
BASIC RASTER UNITS IN INCHES 

109 1-inch 

219 2-inches 

436 4-inches 

872 8-inches 

Characters and symbols may be generated by subroutines; however, the 
use of optional character generators VC38 or VA38 greatly simplifies 
this task. 

The 339 Graphics Software package contains a subprogram which allows 
the use of either character generator, if present. 
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CHAPTER 2 
GRAPHIC SUBPROGRAM ROUTINES 

This section contains detailed descriptions of the FORTRAN IV CALL 
statements required for each 339 Graphic Subprogram. Each descrip- 
tion also includes the equivalent statements needed to call the 
subprogram in MACRO-9. 

All display file storage is supplied by the user in the form of 
dimensioned integer arrays. To facilitate storage management, the 
first location of each display file contains the length of the file. 
Limited reuse of storage is provided for in Main Display File rou- 
tines REPLOT and DELETE. The storage requirements of each CALL which 
adds commands to a file are indicated in the description given of the 
CALL. 

Some of the mnemonics used to represent arguments in the descriptions 
of the CALL statements are listed and defined in Table 2-1. 



Table 2-1, Mnemonics Commonly Used in 339 CALL Statement Descriptions 



Mnemonics 



1) deltay 



2) deltax 



3) It 



4 ) pname 



Definition 
An INTEGER number or variable which repre- 
sents in "raster units" the amount the CRT 
beam is to be displaced from its current 
position in a vertical direction. This 
quantity is signed to indicate the direction 
of displacement, 
i.e. 

+ = move beam up 

- = move beam down 

Same as deltay except that the indicated 
displacement is made on the horizontal 
plane and the directions indicated by the 
sign are: 

+ = move beam right 

- = move beam left. 

This variable is restricted to the INTEGER 
values 1 and to indicate if the CRT beam 
movement is to be visible. (It = 1) to 
draw a line, or invisible (It = 0) . 
The subpicture display files generated by 
the compilation of the Graphic Subpicture 
CALLS are stored in dimension arrays speci- 
fied by the user. An INTEGER variable, pname, 
represents the first element of the array 
specified to store the commands generated in 
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N'OTE : The v » ;- i = 1- 1 e 

from the statement 
argument list's; if 
dropped, the last 
given value for pname 
will be assumed. 



5) featr 



6) value 



7) mainfl 



8) cname 



is located. pname is always represented as 
a subscripted variable; it will contain the 
length of the file and is the variable by 
which the file is referenced in later manipu- 
lations . 

An INTEGER number which identifies a feature 
of the CRT display to be specified in the CALL 
(i.e. 1 = SCALE, 2 = Intensity, 3 = light 
pen, and 4 = Blink). 

A single INTEGER digit which indicates what 
value or setting is specified for the selected 
display feature. 

Similar to pname, the value of mainfl repre- 
sents the first array element of the dimen- 
sioned array specified by the user to store 
a Main Display File. Mainfl is represented 
as a subscripted INTEGER variable., it contains 
the length of the file and is the variable 

by which the file is referenced. 

An INTEGER which identifies the location or 

first location which contains the display 
command (s) generated by the CALL in which 
cname is an argument. 
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2.1 SUBPICTURE ROUTINES 

The 339 subpicture routines generate files of executable display 
commands which are identified and manipulated as separate graphi- 
cal entities (i.e. Subpicture Display Files). The identity of a 
subpicture file is the address of its first location ( pname ) and 
is given as an argument in all calls to the subpicture routines. 
The calls are self-contained; they permit simultaneous generation 
of subpictures with each referenced subpicture left in displayable 
form so that it can be manipulated dynamically while displaying. 

The first location of a subpicture ( pname ) contains its current 
length; this value must be when the first reference to the Sub- 
picture Display file is made. After the first reference, the 
value of pname is maintained by the subpicture routine. 

Since display files are generated and stored in arrays dimensioned 
by the user, they are fully accessible to the user and can be 
written out or read in using FORTRAN unformatted I/O statements. 

Storage overhead for each Subpicture Display File is three words: 
the first word contains the file length, the second is used for con- 
trol and the third (last in file) contains the 339 display command 
POP (subpicture return) . 
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2.1.1 LINE Subroutine 

The LINE subroutine adds to the specified subpicture file the com- 
mands necessary to draw a line (beam intensified) or move the beam 
(not intensified) through a specified displacement from the current 
beam position. 



Form 






(1) FORTRAN: 


CALL LINE 


(deltay, 


(2) Macro-9: 








. GLOBL 


LINE 




JMS* 


LINE 




JMP 


.+5 




.DSA 


deltay 




.DSA 


deltax 




.DSA 


It 




[Tdsa 


pnamel 



Input Variables 

(1) deltay = Vertical component of beam displacement in 

raster units (integer) . 

(2) deltax = Horizontal component of beam displacement 

in raster units (integer) . 

(3) It = Line type (integer) . 

1 visible 
invisible 

(4) pname is the first location of this subpicture display 

file. It is the name by which the subpicture 
is referred to in later manipulation. For 
example, if a subpicture is to start in the 
dimensioned array ELEMNT , the calls to LINE 
building that subpicture are of the form CALL 
LINE (deltay, deltax, It, ELEMNT(l)) (integer). 

Output Variables 

pname = Current length of this subpicture file. In the 
example above, the location ELEMNT (1) contains 
the length of the file. 



Description 

(1) LINE adds three commands to the display file: 

VEClEDS (vector mode, enter data state) 

«h>l I ay 

'l''ll.ix (<•:;<:. t|;>' -I o -con I. r it I.- :; f..i le hit on) 

(2) If it immediately follows another LINE call, LINE 
clears the preceding escape bit and adds 2 commands 
to the display file: 

deltay 

deltax (escape bit on) 

(3) The number of commands added to the display file is 
added to the contents of location pname. 

Restrictions 

(1) Deltay and deltax are signed integers, the magnitudes 
of which must not exceed 1023. 

(2) Pname must contain zero before the first call referenc- 
ing it. 

(3) Sufficient space must follow pname to contain the 
subpicture file. 

Example. The following two statements illustrate the use of 

the LINE subroutine to draw straight and sloped lines: 

(1) Draw a vertical line: Display 

CALL LINE (50, 0,1,, ILINE (1)) 



~~\ V 



Vert, line 
Raster units 
ong 
Starting point 



[2) Draw a sloped line: 

CALL LINE(200,-300,1,ILINE(1) 



x = -300 



~> 




•Jy = 200 
-"^^Starting point 
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2.1.2 TEXT Subroutine 

This subroutine call may be used only in 339 systems which contain 

an optional character generator (VC38 or VA38) . 

The TEXT subroutine adds to the specified subpicture file the com- 
mands necessary to display the identified text string, starting at 
the current beam position. These are in the format determined by 
whichever of the optional character generators (VC 38 or VA38) is 
used. 

The standard text font is drawn on a 5 x 7 dot matrix. Each character 

causes an increment of 7 raster units to the X position of the beam. 
a . Form 

(1) FORTRAN: CALL TEXT (str, n rpnamel ) 



(2) Macro-9 



.GLOBL TEXT 

JMS* TEXT 

JMP .+4 

•DSA str 

.DSA n 

[7 DSA pnamel 

b. Input Variables 

(1) str identifies the dimensioned real array which 

contains the string of characters to be dis- 
played in IOPS ASCII (Hollerith) form (five 
7-bit characters per word). 

(2) n is an integer number representing the total 

number of characters to be displayed. 

(3) pname is the first location of this subpicture file, 

as in LINE, above. 

c. Output Variables 

pname = Current length of this file. 

d. Description 

(1) TEXT adds to the assembled display file two commands 
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plus the character string at two characters per word: 

CHAR.' EDS (character mode, enter data state) 
CI C2 



Cn 

Ce (escape-to-control-state character) 

(2) If this TEXT call immediately follows a previous TEXT 
call, TEXT inserts only the new character string 
above the escape character. 

(3) The number of commands added to the file is added to 
the contents of pname . 

e. Restrictions. 



(1) Pname must contain zero (0) before the first call 
referencing it. 

(2) Sufficient space must follow pname to contain the 
subpicture file. 



Example 

The following statements illustrate the manner in which 

text to be displayed is setup and called: 

(1) Setup for "339JVSSABETJSILLEY" 

DIMENSION ADDR(4) 

DATA ADDR(1)/5H339 U A/,ADDR(2)/5HSSABE/,ADDR(3)/5HT U ALL/, 
1 ADDR(4)/2HEY/ 

(2) CALL statement to display text 
CALL TEXT (ADDR ( 1) , 17 , IPIC ( 1) ) 
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2.1.3 COPY Subroutine 

The COPY subroutine enables two or more subpicture display files to 
be linked together to generate a composite display image. This sub- 
routine adds to one subpicture display file the commands necessary to 
link it to a second subpicture with the second display file starting 
at the last beam position specified by the first subpicture. 
a . Form 

(1) FORTRAN: CALL COPY (pnamel [, pnamel) 

(2) Macro-9: 



. GLOBL 


COPY 


JMS* 


COPY 


JMP 


.+3 


.DSA 


pnamel 


|7dsa 


pnamel 



b. Input Variables 

(1) pnamel is the first location (name) of the subpicture 
to be copied (integer) . 

(2) pname is the first location (name) of this subpicture 
display file, as in LINE above. 

c. Output Variables 

pname = Current length of this file. 

d. Description 

(1) COPY adds two commands to the display file: 

PJMP (display subpicture jump) 
pnamel+2 

(2) 2 is added to the contents of pnamel. 

e. Restrictions 

(1) Pnamel need not be defined when COPY is called, but 
must be a defined subpicture when pname is displayed. 

(2) Pname must contain zero (0) before the first call 
referencing it- 

(3) Sufficient space must follow pname to contain the 
subpicture file. 
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f. Example 

The statement 

CALL COPY (WINDOW ( 1) , HOUSE (1)) 

adds a call to the WINDOW subpicture file to the file 

identified as HOUSE. 

2.1.4 PRAMTR Subroutine 

The PRAMTR subroutine allows the user to add to the specified sub- 
picture file the commands necessary to set scale and intensity for 
the display or to turn on or off light pen sensitivity and the blink 
circuit. 

The scale setting determines the proximity of intensified points in 
a line: 

Every point is intensified 

1 Every other point is intensified 

2 Every fourth point is intensified 

3 Every eighth point is intensified 

This setting affects the length of the line proportionately, since 
the increments given in the LINE call are actually a count of 
intensified points rather than absolute points. It also affects the 
intensity, in inverse proportion, since fewer points are glowing. 
Thus if the intensity of a line must remain constant with a change 
in scale setting, the intensity setting must be changed by an equal 
amount. At a scale setting of 2, the points are clearly separated 
and the effect on intensity becomes secondary. 

More than one feature, each with its corresponding settings, may be 
specified in a PRAMTR CALL statement by using the following technique: 
(1) Add together the integer code numbers which identify the 
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selected features and assign this value to the variable 

featr . 

Example: for scale (1) and intensity (2) featr will have 

the value 3 . 
[2) List the desired settings, as arguments, in ascending 

order according to the values of the numeric assigned to 

their corresponding features (the argument list 3,2,6 

would specify a value of 2 for scale (#1) and of 6 for 

intensity (#2)) . 
a . Form 

(1) FORTRAN: 

A. (one feature) CALL PRAMTR (featr , value r,pname] ) 

B. (more than one feature and setting) 

CALL PRAMTR (featr (s ), valuel{7value2 ... 1 [^namel ) 

(2) Macro-9: 



Where: N = 2+ (number of 

features specified) +1 
if pname is given 



b. Input Variables 

(1) featr = Feature of the display being set (integer) : 

1 set scale 

2 set intensity 

4 set light pen sensitivity (on or off) 
8 set blink (on or off) 

(2) value = The value to which featr is set (integer) : 



. GLOBL 


MODE 


JMS* 


MODE 


JMP 


, +N 


.DSA 


featr 


.DSA 


value 


.DSA 


pname 



Featr 


Possible Values 


1 (scale) 


(low) - 3 (high) 


2 (intensity) 


(low)- 7 (high) 


4 (light pen) 


1 = on 


= off 


8 (blink) 


1 = On 


= off 
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(3) Pname is the first location of this subpicture file, 
as in LINE, above. 

c. Output Variables 

pname = Current length of this file . 

d. Description 

(1) The PRAMTR subroutine adds one or more commands to the 
display file depending on the type of argument list 
used: 

SC value or 

INT value or 

LPON if value = 1, LPOF if value = , or 

BKON if value = 1,. BKOF if value = 

(2) 1 is added to the contents of location pname. 

e. Restrictions 

(1) This subroutine must be used with care, since the 
setting given is in effect until explicitly changed 
in this or some other part of the display. Thus, if 
the blink is turned on at the beginning of a sub- 
picture, it must be turned off at the end in order 
that only that subpicture blinks. Otherwise the 
whole display will blink. 

(2) Pname must contain zero (0) before the first call 
referencing it. 

(3) Sufficient space must follow pname to contain the 
subpicture file. 

f. Examples: 

(1) The following single feature statement: 

CALL PRAMTR (2 , 7 , HOUSE (1) ) 

specifies an intensity (2) level of 7 for the subpicture 
display file starting at the first location of array 
HOUSE. 

(2) The following multiple-feature statement: 

CALL PRAMTR (SCALE+INT+LPEN ,0 , 4 , 1 , IN ( 1 ) ) 

specifies the values and 4 for display SCALE and 
INT (intensity) features, turns the optional light pen 
on (LPEN = 4 ) for the execution of the subpicture dis- 
play file which starts at location 1 of array IN. 
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2.1.5 GRAPH Subroutine 

The GRAPH subroutine adds to the specified subpicture file the com- 
mands necessary to display in graph form the identified set of data 
points. One coordinate is sequentially set at the value of each 
data point. The other coordinate is then automatically incremented 
by one (in the current scale) , leaving the beam positioned one 
increment past the end of the graph. Note that axis and labelling 
must be provided separately, 
a. Form: 

(1) FORTRAN: CALL GRAPH (dta,"n,a rpnamel ) 

(2) Macro-9: 



. GLOBL 


GRAPH 


JMS* 


GRAPH 


JMP 


.+5 


.DSA 


dta 


.DSA 


n 


.DSA 


a 


[Tdsa 


pname] 



Input Variables 

(1) dta contains the set of data point.'j , one per word, in 
the range to 1023 (integer) . 

(2) n = number of data points to be displayed (integer). 

(3) a indicates which axis to imcrement. 

= increment x, set y to data values 

1 = increment y, set x to data values 

(4) pname is the first location of this subpicture file, 
as in LINE, abovd. 

Output variables 

pname = current length of this file. 

Description 

(1) GRAPH adds to the display file one command plus the 
data set, at one value per word: 
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GRAPH! EDS (graph mode, enter data state) 

VAL1 

VAL2 



VALn (escape bit on) 

(2) If this GRAPH call immediately follows a previous 
GRAPH call, the escape bit is cleared and the new 
data points only are added to the file. The escape 
bit is then set in the last of the new data points. 

(3) The number of commands added to the file is added to 
the contents of pname. 

e. Restrictions 

General restrictions only (see LINE) . 

f. Example 

The following program illustrates the use of the GRAPH 
and other subroutines. 

C TEST PROGRAM F'ik THE GRAPH SUBROUTINE 

C FTST1.VJ 

COPYRIGHT 1969, (MCITAL FUUIPMFNT CORP., riAYNA'^D. MASS. 

INTEGER SINwV<300) . Y(200) 

DIMENSION TITLC10) ,MAINFL(20> 

OATA TITLd ),TITL(2) ,TITL<3> , T I TL ( 4 ) /5HTH I S , 

1 bHIS A .SHSINE .5HHAVE./ 
C SET UP INTEGER A'JRAY OF VALUES TO BE PLOTTED 
10 X = f. . 

no 2 jl T = 1 , 2 k) 

Y( I ) = IF I X (SIN(X)»256. >+512 

X = X ■+ . >A (*• '* H 
20 CONTINUE 

C SET JP SUB-PICTURE TO PLOT THOSE VALUES 

S I N w V ( 1 ) = fl 

CALL PHAMTR(3.B,7,SINWV<1)) 

CALL LTNF(9l,45fl.l) 

CALL L INF <?50,-4'50.0) 

CALL L INF {-500, (3,1) 

CALL LINf(250»(".0) 

CALL PRA"'TR(1,1) 

CALL GMPH( Y(l) ,100,0) 

CALL G»APH(Y<101),100,0.SINWV(.1>) 

CALL L1NFC-20, -200,0) 

CALL TFXT(TlTLd) ,20) 
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C SET ik MAIN DISHLAY FILE TO DISPLAY THF I-HAHh 
Ma F.VfL ( 1 5 =y 
CALL MI J f T(MAINFL(1 ) ) 
CALL MT' J Tbl2 ) 2/ l 0) 
CALL PL OT ( m,SIMwV(1 ) ) 
PAUSF 1 

TALL ix'L'S^ (MAINFL( 1 ) ) 
t-'AL'b*- ;-■ 
CO Ft* Ik 
FMI' 



2.1.6 BLANK Subroutine 

The BLANK subroutine is used to prevent the displaying of any copy 
of this subpicture. The display file length is not changed. 
a. Form 

(1) FORTRAN: CALL BLANK (pname) 

(2) Macro-9: 



. GLOBL 


BLANK 


JMS* 


BLANK 


JMP 


.+2 


.DSA 


pname 



b. Input Variables 

pname is the subpicture to be BLANKed. 

c. Output Variables 
None . 

d. Description 

(1) The command in location pname+2 (the first executable 
command in the display file) is moved to location 
pname+1. 

(2) The command POP (display subpicture return) is inserted 
at location pname+2. 
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e. Restrictions 

(1) Pname must be a defined subpicture file. 

(2) BLANK has no meaning as the first call referring to 
pname. 

f. Example 

The following statement prevents the subpicture display 
file starting at the first location of array IPIC from 
being displayed. 

CALL BLANK (IPIC(D) 

2.1.7 UNBLNK Subroutine 



The UNBLNK subroutine reverses the action of the BLANK subroutine, 
allowing a previously BLANKed subpicture to be displayed. 
a. Form 

(1) FORTRAN: CALL UNBLNK (pname) 

(2) Macro-9: 



. GLOBL 


UNBLNK 


JMS* 


UNBLNK 


JMP 


.+2 


.DSA 


pname 



b. Input Variables 

pname is the subpicture to be UNBLNKed. 

c. Output Variables 
None . 

d. Description 

The command in location pname+1 (placed there by a call to 
BLANK) is moved to location pname+2, overlaying the POP that 
was there. 

e. Restrictions 

(1) Pname must be a defined subpicture file. 

(2) A call to UNBLNK must have been preceded by a call 
to BLANK. 
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f. Example 

The following statement will enable the previously blanked 
subpicture IPIC (refer to "f." of 2.1.6) to be displayed. 
CALL UNBLNK (IPIC(l)) 

2.2 MAIN DISPLAY FILE ROUTINES 

These routines are used to generate the display main file, to which 
the display controller is directed when initiating display, and 
which is presumed to be calling upon the subpicture files generated 
with the routines described above. As is the case with subpicture 
files, storage used for the main file is supplied by the calling 
program as a dimensioned array. That array is identified by only 
one call to the initializer (DINIT) and is implicit in all other calls. 
These calls assume that reference is made to the storage identified 
by DINIT. They are concerned, however, with the identification of 
each entry to the main display file. Thus each call has as an 
optional argument the location of the display code generated by that 
particular call which provides a "handle" to that particular graphic 
entity. This provides the flexibility required to build and modify 
a display file in an interactive environment. It also enables the 
user to perform limited storage management. Each routine that adds 
commands to the file inserts a word count corresponding to this call, 
and each change or deletion of commands updates this local word count. 
Thus, small blocks of storage containing unneeded commands can be 
reused. 

As with subpicture files, the name of a main display file is its first 
location, which contains the length of the file and is updated by 
each call that changes that length. If a new file is to be generated, 
the first location must contain zero before any display routines refer 
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to it. The remaining three words of storage overhead in a main file 
are the second word, reserved for control, and the last two words, 
which contain a JUMP to the beginning of the file. The local word 
counts keeping track of groups of commands are kept in the high-order 
6 bits of the PDP-9 word, since the display uses only the low-order 
12 bits. 

2.2.1 DINIT (Display Initialize) Subroutine 

The DINIT subroutine initializes the display via device number 
(.DAT slot) 10. The 339 Device Handler must be associated with .DAT 
slot 10 as DINIT contains .IODEV 10, which causes the device handler 
tied to .DAT slot 10 to be loaded. It can be used to set up for a 
new display main file, to start up an old one, or to start up any 
previously defined subpicture as the current main file. 
a. Form 

(1) FORTRAN: CALL DINIT (mainfl) 

(2) Macro-9: 



. GLOBL 


DINIT 


JMS* 


DINIT 


J MP 


.+2 


.DSA 


mainfl 



b. Input Variables 

mainfl is the first location of the main display file. Like 
pname, it is an element of a dimensioned array (integer). 

c. Output Variables 

Location mainfl contains the length of the display file. This 
is updated by all Main File Routines. 

d. Description 

(1) Determine display length from contents of mainfl (new 
display file if mainfl = 0). 
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(2) Insert 

JUMP 
mainfl+2 

at end of file. 

(3) Initialize display. 

(4) Start the display running at mainfl+2. 

e. Restrictions 

(1) If a new display file is being formed, location mainfl 
must contain zero. If this is a previously defined 
file, mainfl contains the file length and must not be 
altered. 

(2) Sufficient storage must follow mainfl to accommodate 
the display file to be generated at any one time. 

(3) Only one main display file can be running at any one 
time . 

f. Example 

The following statement initializes the execution of the 
Main Display File starting at the first location of array 
MAINFL. 

CALL DINIT (MAINFL (1)) 

2.2.2 DCLOSE (Display Terminate) Subroutine 

The DCLOSE subroutine is used to end a display. It also converts 
the main file specified into a subpicture file by replacing the JUMP 
to the starting location by a POP command. This allows it to be 
used by any subsequently generated main file, as subpicture mainfl. 
a. Form 

(1) FORTRAN: CALL DCLOSE (mainfl) 
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(2) Macro-9: 



. GLOBL 


DCLOSE 


JMS* 


DCLOSE 


JMP 


.+2 


.DSA 


mainf 1 



b. Input Variables 

mainfl is the starting location of the main display file 
being closed. 

c. Output Variables 
None . 

il . Description 

(1) Stop runuiini fcho display device. 

(2) Insert POP at the last location of the display file. 

e. Restrictions 
None. 

f. Example 

The following statement will end the display initiated by 
the statement given in the example "f." of 2.2.1. 
CALL DCLOSE (MAINFL (1)) 

2.2.3 SETPT (Set Point) Subroutine 

The SETPT subroutine is used to locate the beam on the display sur- 
face in absolute display coordinates (raster units). The beam is 
not intensified with this call, 
a. Form 

(1) FORTRAN: CALL SETPT (y ,x j~, enamel ) 

(2) Macro-9: 



.GLOBL 


SETPT 


JMS* 


SETPT 


JMP 


.+4 


.DSA 


y 


• DSA 


X 


f.DSA 


cnamej 
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b. Input Variables 

(1) y = Vertical coordinate of beam location. 

(2) x = Horizontal coordinate of beam location. 

c. Output Variables 

(1) cname = Location of the group of display commands 
generated by this call (Integer Variable).. 

d. Description 

(1) SETPT adds three commands to the main file: 

POINTIEDS (point mode, enter data state) 

y 

x 

(2) The number 03 is entered into the high-order six 
bits of the control state command (POINTlEDS). 



(3) The value 3 is added to the contents of location 
mainf 1. 

(4) The location of the POINT! EDS is stored in cname 

(if given) . 

e. Restrictions 

(1) The values x and y must be positive integers, and 
their values must not exceed 1023. 

(2) This call causes the beam to be given an absolute 
location as opposed to a relative displacement. This 
action effectively severs any following parts of the 
display from any preceding parts. If a section of 
the display is completely defined in terms of relative 
vectors, then its location on the display surface 
depends on where the beam was initially located, and 
it can be made to move as a unit by changing the 
initial setting. Giving the beam an absolute location 
disregards any previous motion and serves as a new 
reference point in the display. 

(3) Cname is an optional output of this subroutine. 
Using the same variable name as one used in a 
previous call will destroy the previous contents. 
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f. Example 

The following statement establishes an absolute beam 
position at matrix coordinates y=10, x=10 of the display. 
CALL SETPT (10,10) 

2.2.4 PLOT Subroutine 

The PLOT subroutine is the prime active agent in the generation 
of the main display file. There are three forms of calls correspond- 
ing to the three subpicture routines, COPY, LINE, and PRAMTR. They 
are used to cause the displaying of predefined (but not necessarily 
complete) subpictures and individual lines, and to introduce appro- 
priate display control commands. In all cases, the requested 
display or control function is identified as a separate entity 
and may be manipulated independently of the rest of the display. 
A. PLOT a Subpicture 



Form 






(1) FORTRAN: 


CALL PLOT 


(0,pnait 


(2) Macro-9: 








.GLOBL 


PLOT 




JMS* 


PLOT 




JMP 


.+4 




.DSA 


(0 




.DSA 


pname 




Tdsa 


enamel 



Input Variables 

pname is the name (first location) of the subpicture to 
be displayed. 

Output Variables 

cname = Location of the group of display commands generated 
by this call. 

Description 

(1) Two commands are added to the main display file: 

PJMP (display subpicture jump) 
pname+2 
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(2) The number 02 is entered into the high-order six 
bits of the P JMP . 

(3) The value 02 is added to the contents of mainfl. 

(4) The location of the PJMP is stored in cname (if given) 

e. Restriction 

As in SETPT, cname is an output and multiple use of the 
same variable name will destroy previous contents. 

f. Example 

CALL PLOT (COPI, HOUSE (1) , MAIN) where: 

COPI has been assigned the integer- value by a DATA 

statement; HOUSE identifies the subpicture file to be 

displayed and MAIN is an optional variable by which this 
display may be referenced. 

PLOT a Line (or reposition the beam) 
a . Form 

(1) FORTRAN: CALL PLOT (1 ,deltay ,deltax , It [~, cname"] ) 

(2) Macro-9: 



. GLOBL 


PLOT 


JMS* 


PLOT 


JMP 


.+6 


.DSA 


(I 


• DSA 


deltay 


.DSA 


deltax 


.DSA 


It 


[7dsa 


enamel 


Input Variables 





(1) deltay = Vertical displacement through which the beam 
is to move. 

(2) deltax = Horizontal displacement through which the 
beam is to move . 

(3) It = Line type . 

1 visible 
invisible 
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c. Output Variables 

cname = Location of the group of display commands generated 
by this call. 

d. Description 

(1) Three commands are added to the main display file: 

VEC.'EDS (vector mode, enter data state) 
deltay (intensify bit = LT) 
deltax (escape bit on) 

(2) The number 03 is entered into the high-order six bits 
of the VECJEDS. 

(3) The value 03 is added to the contents of mainfl. 

(4) The location of the VEClEDS is stored in cname (if given) 

e. Restrictions 

(1) Deltay and deltax are signed decimal integers not to 
exceed 1023. 

(2) As in SETPT, cname is an output and multiple use of 
the same variable name will destroy previous contents. 

f. Example 

CALL PLOT (LYNE,1JW,100,ON,IEDGE(1)) 

where LYNE and ON have assigned values of 1 and IEDGE(l) is 

a display identifier to be used for later reference to this 

line. 

PLOT a Control Command 
a. Form 

(1) FORTRAN: CALL PLOT (2 , featr, value j", cname"] ) 

(2) Macro-9: 



. GLOBL 


PLOT 


JMS* 


PLOT 


JMP 


.+5 


• DSA 


(2 


.DSA 


featr 


.DSA 


value 


Hdsa 


enamel 
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b. Input Variables 
featr , value . 



NOTE 
The variables featr and value must be 
specified in the same manner as for 
PRAMTR statements. Refer to paragraph 
2.1.4 for detailed information. 



Output Variables 

cname - Location of the group of display commands generated 
by this call. 

Description 

(1) This subroutine adds one or more commands to the 
display file depending on the type of argument list 
used: 

SC value or 

INT value or 

LPON if value=l, LPOF if value=0 or 

BKON if value=l, BKOF if value-0 

(2) The number 01 or more is entered into the high-order 
six bits of the command. 

(3) The value 01 or more is added to the contents of mainfl. 

(4) The location of the command is stored in cname (if given) , 
Restrictions 

(1) This call must be used with care, since the setting given 
is in effect until explicitly changed in this or some 
other part of the display. Thus if the blink is turned 
on before calling a subpicture, it must be turned off 
after the call in order that only that subpicture blinks. 
Otherwise, the whole display will blink. 

(2) As in SETPT, cname is an output and multiple use of the 
same variable name will destroy previous contents. 

Example 

(1) Single-feature statement 

CALL PLOT (2,8,1) 
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(2) Multiple-feature statement 

CALL PLOT ( PRAM, SCALE+INT+LPEN, 0,4,1, IN) 

establishes the values and 4 for display feature 
SCALE and INT, turns the light pen option (LPEN) on, 
and specifies the location IN as the first location 
of the array containing the display code generated 
by this statement (PRAM = 2)» 



2.2.5 DELETE Function 



The function DELETE is used to delete from the main display file any 
display entity formed by a single call to a main file subprogram and 
assigned to cname. If cname does not point to the beginning of such 
a display entity, the DELETE fails and has no effect on the display 

file. 



a. 


Form 








(1) 


FORTRAN : 


i = 


DELETE 


(cname) 




or 


CALL DELETE 


(cname) 


(2) 


Macro-9 : 




.GLOBL 

JMS* 

JMP 

.DSA 

DAC 


DELETE 

DELETE 

.+2 

cname 

i /if desired 



Input Variables 

cname = Location of the group of display commands to be 

deleted. 

Output Variables 

i = Boolean success indicator. 



TRUE. successful deletion. 
.FALSE. unsuccessful deletion 



Description 



(1) Check if cname points to a display entity; do nothing 
if not. 
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(2) Replace all commands in this group by display 
no-operation (NOP) commands. 

(3) Insert sequential numbers in the high-order six 
bits of immediately adjacent free storage locations, 
starting from the bottom of this group and moving up 
in the display file. 

e. Restrictions 
None • 

f. Example 

CALL DELETE (NAME (2)) 
Deletes from the main display file the display entity whose 
first command is pointed at or identified by the second 
element of array NAME. 

2.2.6 REPLOT Function 

The function REPLOT allows use to be made of previously defined 
locations in the main display file. This can serve two purposes: 
(1) to reuse locations freed by DELETE, and (2) to change an exist- 
ing group of display commands. REPLOT checks whether the group being 
inserted is longer than the space pointed at by cname. • If it is, 
the REPLOT fails and the display file is not affected. By manipulat- 
ing cname, smaller groups can be packed into the space formerly used 
by a larger group. For example, up to three control commands could 
be inserted into the space left by a DELETEd LINE group. There are 
three forms of calls to REPLOT, each of which is the same as the 
corresponding call to PLOT. 

It is important to note that while cname is an optional output of 
PLOT it is a required input of REPLOT since it identifies the loca- 
tions to be modified in the main display file It also must be 
recognized that cname must have been given as an argument to a PLOT 
call for it to be available for REPLOT. 
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REPLOT a subpicture 
a . Form 

(1) FORTRAN: i = REPLOT (0 ,pname.,cname) 

or CALL REPLOT (copy ,pname ,cname) 
(2) Macro-9: 



. GLOBL 


REPLOT 


JMS* 


REPLOT 


JMP 


.+4 


.DSA 


(0 


.DSA 


pname 


.DSA 


cname- 


DAC 


i /if desired 



b. Input Variables 

(1) pname is the name (first location) of the subpicture 
to be displayed. 

(2) cname = Location in which to store the display commands 
generated. 

c. Output Variables 

i = Logical success indicator. 

•TRUE. REPLOT successful. 

.FALSE. not enough room at location pointed 
to by cname , no action . 

NOTE: If the above form is used, both i^ and 
REPLOT must be declared as LOGICAL in a type 
statement. 

d. Description 

(1) Check if cname points to a large enough block; do nothing 
if not. 

(2) Insert two commands at the location pointed to by cname: 

PJMP 
pname+2 

(3) The number 02 is entered into the high-order six bits 
of the PJMP. 

(4) Subtract 2 from the sequential number.s in the high-order 
six bits of any adjacent free storage locations above 
this . 
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(5) Insert NOP ' s in any remaining locations belonging to 
a former command group at this address. 

e. Restrictions 

None . 

f. Example 

CALL REPLOT (f) , SLIDE (M) , NAME) 
where indicates the function (i.e. subpicture) , M 
represents the first location of the subpicture display 
file (in array SLIDE) and NAME identifies the location in 
the display file into which this line is to be inserted. 
B. REPLOT a line (or reposition the beam) 
a. Form 

(1) FORTRAN: i = REPLOT (1 ,deltay , deltax , It , cname) 

or CALL REPLOT (line ,deltay , deltax, It , cname) 

(2) Macro -9: 

. GLOBL REPLOT 

JMS* REPLOT 

JMP .+6 

.DSA (1 

.DSA deltay 

.DSA deltax 

.DSA It 

.DSA cname 



DAC i /if desired 



Input Variables 



(1) deltay = Vertical displacement through which the beam 
is to move. 

(2) deltax = Horizontal displacement through which the 
beam is to move. 

(3) It = Line type. 

1 visible 
invisible 

(4) cname = Location in which to store the display 
commands generated. 
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c. Output Variables. 

i = Logical success indicator . 

.TRUE. REPLOT successful, 

.FALSE. not enough room at location pointed 
at by cname, no action. 

NOTE: If the above form is used, both 
i and REPLOT must be declared as LOGICAL 
in a type statement. 

d. Description 

(1) Check if cname points to a large enough block, do 
nothing if it does not. 

(2) Insert three commands at the location pointed to 
by cname : 

VEClEDS (vector mode, enter data state) 
deltay (intensify bit = It) 
deltax (escape bit on) 

(3) The number 03 is entered into the high-order six 
bits of the VEClEDS. 

(4) Subtract the value 3 from the sequential numbers 
in the high order six bits of any adjacent free 
storage locations above this. 

(5) Insert NOPs in any remaining locations belonging to 
a former command group at this address. 

e. Restrictions 

Deltay and deltax are signed decimal integers not to 
exceed 1023. 

f. Example 

CALL REPLOT (LYNE , Y ,X ,OFF ,DISPL) 
where the first four arguments are assigned the values 1, 50, 
50 and respectively, causing the beam to be moved, not 
intensified, up 50 raster units and to the right 50 raster 
units. DISPL identifies the location in the display file 
into which this line is to be inserted. 
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REPLOT a Control Command 
a . Form 



Z 



(1) FORTRAN: i = REPLOT (l), featr , value , cname) or 

CALL REPLOT {mode , featr, value , cname) 

(2) Macro-9: 



. GLOBL 


REPLOT 




JMS* 


REPLOT 




J MP 


.+5 




.DSA 


(2 




.DSA 


featr 




.DSA 


value • 




.DSA 


cname 




DAC 


i /if 


desired 



Input Variables 
featr, value. 



NOTE: The variables featr and value must be 
specified in the same manner as for PRAMTR 
statement. Refer to paragraph 2.1.4 for 
detailed information. 



Output Variable 

i = Logical success indicator, 

.TRUE. REPLOT successful. 

.FALSE. not enough room at location pointed 
to by cname , no action. 

NOTE: If the above form is used, both i 
and REPLOT must be declared LOGICAL in a 
type statement. 



d. Description 

(1) Check whether cname points to a large enough block 
(i.e., to a free location); do nothing if it does not. 

(2) The REPLOT subroutine adds one or more commands to 
the display file depending on the type of argument 
list used: 



SC value or 
INT value or 
LPON if value 
BKON if value 



1, LOPF if value = or 
1, BKOF if value = 
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(3) The number 01 or more is entered in the high-order 
six bits of that command. 

(4) Subtract 1 or more from the sequential numbers in 
the high-order six bits of any adjacent free 
storage locations above this. 

e. Restrictions 

This call must be used with care, since the setting given is 
in effect until explicitly changed in this or some other part 
of the display. Thus if the blink is turned on before calling 
a subpicture, it must be turned off after the call in order 
that only that subpicture blinks. Otherwise the whole display 
will blink. 

f. Example 

CALL REPLOT (PRAM, BLINK , I , IBLl ) 
where the first two arguments are assigned the values 2 and 
8 respectively, I may represent either ON or OFF, and IBLl 
identifies the location in the display file into which this 
line is to be inserted. 

2.2.7 RSETPT (Set Point) Subroutine 

The function RSETPT permits absolute beam locations previously 
defined by SETPT to be redefined. This function can be used in the 
same manner as REPLOT to reuse any deleted locations or to change 
any existing group of commands. The same checking of needed space 
versus available space as is done by REPLOT takes place in RSETPT. 
a. Form 

(1) FORTRAN: i = RSETPT (y,x,cname) or 
CALL RSETPT (y,x,cname) 
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(2) Macro-9: 



. GLOBL 


RSETPT 


JMS* 


RSETPT 


J MP 


.+4 


.DSA 


y 


.DSA 


X 


.DSA 


cname 


DAC 


i /if desired 



b. Input Variables 

(1) y = Vertical coordinate of beam location. 

(2) x = Horizontal coordinate of beam location. 

(3) cname = Location in which to put the display 
commands that are generated. 

c. Output Variables 

i = Logical success indicator 

.TRUE. RSETPT successful. 

.FALSE. Not enough room at location 

pointed to by cname, no action. 

NOTE: If the above form is used, both 
i and REPLOT must be declared LOGICAL 
in a type statement. 

d. Description 

(1) Check if cname points to a large enough block, do 
nothing if it does not. 

(2) Insert three commands at the location pointed to 
by cname: 

POINT! EDS 

y 

x 

(3) The number 03 is entered into the high-order six 
bits of the POINT .'EDS. 

(4) Subtract 3 from the sequential numbers in the high- 
order six bits of any adjacent free storage locations 
above this. 

(5) Insert NOP ' s in any remaining locations belonging to 
a former command group at this address. 
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e. Restrictions 

(1) x and y must be positive integers, the value of which 
must not exceed 1023. 

(2) This call causes the beam to be given an absolute 
location, as opposed to a relative displacement. 
This effectively severs any following parts of the 
display from any preceding parts. If a section of 
the display is completely defined in terms of relative 
vectors, then its location on the display surface 
depends on where the beam was initially located, and 
it can be made to move as a unit by changing the 
initial setting. Giving the beam an absolute location 
disregards any previous motion and serves as a new 
reference point in the display. 

f. Example 

CALL RSEPT(lJ2f,10,NAME) 
where the value of 10 is assigned to the x and y 
coordinates and NAME identifies the location into the 
display file into which this line is to be inserted. 

2.3 INPUT SUBPROGRAMS 



Input subprograms enable the user program to deal with display console 
interaction using the light pen and pushbuttons. These routines can 
inform the user whether there has been a light pen or pushbutton 
action and, if so, the appropriate information is returned. The 
user program is not (logically) interrupted when such action occurs. 
Light pen or pushbutton action at the console merely causes an indica- 
tor to be set in the corresponding routine, and this may affect the 
user's flow of control at his discretion. The light pen tracking 
routine provides a somewhat different use of the light pen, allowing 
the user to control input and generation of graphics. 

2.3.1 LTPN Functions 

The function LTPN is used to determine whether a light pen hit has 

occurred. If it has not, the function returns an indicator to this 
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effect. If it has, the logical (name of the display element hit) 

and physical (y and x raster coordinates) location of the light pen 

and the status of the pushbutton box are returned as well as the 

indicator that a hit has occurred. For example, this routine may 

be used as a switch in a FORTRAN logical IF statement (see item "£" ) 

The IF could branch to itself if no hit has occurred, or to the 

user's light pen hit processing code if a hit has occurred. 

a . Form 

(1) FORTRAN: i = LTPN (y ,x, cname ,pb) 

NOTE: The variable i, LTPN, and pb 
must be declared LOGICAL in a type 
statement. 



(2) Macro-9: 








. GLOBL 


LTPN 




JMS* 


LTPN 




JMP 


.+5 




.DSA 


Y 




• DSA 


X 




.DSA 


cname 




• DSA 


pb 




DAC 


i 


Input Variabli 


2S 




None 






Output Variables 





(1) i = Logical indicator. 

•TRUE. a light pen hit has occurred. 
•FALSE. no light pen hit has occurred. 

(2) y = Vertical coordinate of light pen position. 

(0 <y < 1023 raster units) . 

(3) x = Horizontal coordinate of light pen position, 

(0 <_ x £ 1023 raster units) . 

(4) cname = Location in the main display file of the 

group of commands causing this entity to be 
displayed. 



1 



If i = .FALSE- items (2) through (5) have no meaning. 
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(5) pb represents an array each element of which will 

contain either the logical .T. or .F. corresponding 
to ON or OFF for each of the 12 control box push- 
buttons . 

d . Description 

(1) Issue a read on light pen interrupt to the display 
device handler. 

(2) Return if no interrupt was posted. 

(3) Read display registers and translate into display 
file locations. 

e. Restrictions 

Care must be taken when using this routine in conjunction 
with the Main Display File routines. Because of conflict- 
ing requests to the 339 Device Handler, the Main File 
routines clear the request for pending light pen interrupts. 
Thereafter, until LTPN has been called again, a light pen 
interrupt is not recognized. Thus, in the sequence 



A I = LTPN(. . . ) 

B CALL REPLOT (...) 

C I = LTPN (...) 
a light pen interrupt occurring between A and B will set 
I = .TRUE., but will have no effect on the segment between 
B and C. 
f. Example 

The following statement illustrates the use of LTPN as a 
switch in a FORTRAN IF statement: 

IF (LTPN (LPY,LPX, NAME, PB) ) GO TO 1/30 
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In the above statement, if a hit has occurred (LTPN 
is .TRUE.) the y_ and x coordinates of the hit, the 
name of the display element detected and the status 
of the pushbutton control' box are indicated and the 
program is directed to execute statement 100. 

2.3.2 PBTN Function 

The function PBTN is used to determine whether a pushbutton or the 
manual interrupt button has been depressed. This function works 
like LTPN, in that it answers the question, "Has the expected action 
taken place?" The user program then decides what to do, based on 
the answer. 



Form 






(1) FORTRAN: 


i = PBTN 


(pb) 


(2) Macro-9: 








. GLOBL 


PBTN 




JMS* 


PBTN 




JMP 


.+2 




. DSA 


pb 




DAC 


i 



b. Input Variables 
None . 

c. Output Variables 

(1) i = Logical indicator- 

.TRUE. = a button was pushed- 
.FALSE. = no button was pushed. 

(2) pb represents an array each element of which will 
contain either the logical .T. or .F. corresponding 
to ON or OFF for each of the 12 control box push- 
buttons. 

d. Description 

(1) Issue a read on pushbutton or manual interrupt to 
the display device handler. 
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(2) Return if no interrupt was posted. 

(3) Read pushbutton status register, 
e. Restrictions 

Care must be taken when using this routine in conjunction 
with the Main Display File routines. Because of conflict- 
ing requests to the 339 Device Handler, the Main File 
routines clear the request for pending pushbutton 
interrupts. Thereafter, until PBTN has been called again, 
a pushbutton interrupt is not recognized. Thus in the 
sequence 

A I = PBTN(PB) 

B CALL REPLOT (...) 

C I = PBTN(PB) 
a pushbutton interrupt occurring between A and B will set 
I = .TRUE. , but will have no effect on the segment between 
B and C. 

2.3.3 TRACK Subroutine 

The TRACK subroutine is used for light pen tracking. Calling TRACK 
causes the proper linkage to be set up to the main display file, and 
a tracking pattern is displayed which will follow the motion of the 
light pen. This routine remains in control, displaying and moving 
the tracking pattern, until any pushbutton or the manual interrupt 
button is depressed. At this point, control is returned to the user 
program with the physical location of the tracking pattern indicator 
point and the status of the pushbutton box. The tracking pattern 
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will continue to be displayed, but it will not track the light pen 
until TRACK is called again. If desired, the user can DELETE the 
tracking pattern; he can also BLANK or UNBLNK the display file 
TRCK if he has declared EXTERNAL or .GLOBL TRCK. When calling 
TRACK, the starting location of the tracking pattern can be 
specified, and the indicator point can be constrained against 
horizontal movement, vertical movement, or any movement (to move 
the tracking pattern away from the point) , by setting the appropriate 
starting coordinate negative, 
a. Form 

(1) FORTRAN: CALL TRACK (+y , ±x ,cname ,pb) 

I = TRACK (±y,±x,CNAME,pb) 

(2) Macro- 9: 



. GLOBL 


TRACK 


.JMS 


TRACK 


JMP 


. + 5 


.DSA 


y 


.DSA 


X 


• DSA 


cname 


.DSA 


pb 


.DAC 


I 


Input Variables 




(1) y = Vertical 


coordin 



(2) x 



tracking pattern initial position. If 
negative, the indicator point is constrained 
to horizontal motion at this vertical 
coordinate . 

= Horizontal coordinate in raster units of 
the tracking pattern initial position. If 
negative, the indicator point is constrained 
to vertical motion at this horizontal 
coordinate. 
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(3) cname = Location in the main display file of the 
group of commands causing the tracking 
pattern to be displayed. 

Add those commands to the display file, 

non-0 Those commands are in the file and 
pointed to by cname (if cname con- 
tains any other value the tracking 
pattern commands are not inserted 
and I is set to .FALSE.) 

c. Output Variables 

(1) I = Logical success indicator. 

.TRUE. = TRACK was inserted. 
.FALSE. = cname points to some unknown 
location. 

(2) y = Present position vertical coordinate in 

raster units of the tracking pattern 
indicator point. If input y was negative 
(constrained) , neither sign nor magnitude 
has changed. 

(3) x = Present position horizontal coordinate in 

raster units of the indicator point. If 
input x was negative (constrained) , neither 
sign nor magnitude has changed. 

(4) cname = Location in the main display file of the 

group of commands causing the tracking 
pattern to be displayed. 

(5) pb =• represents an array each element of which 

will contain either the logical .T or .F 
corresponding to ON or OFF for each of the 
12 control box pushbuttons. 

d. Description 

(1) Insert starting position and constraints in tracking 
pattern display file. 

(2) If input cname = 

(a) Five commands are added to the main display file; 

PJMP 

TRCK 

POINT! EDS These commands return the 

Y beam to the main part of 

X the display. 
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(b) The number 05 is entered into the high-order 
six bits of tne P JMP . 

(c) The value 5 is added to the contents of the 
first location of the main display file, mainfl. 

(d) The location of the PJMP is stored in cname. 

If input cname points to a PJMP TRCK, go to item (3) . 

If input cname points to anything else, set 
I = .FALSE, and return to user. 

(3) Issue a read on light pen, pushbutton, or manual 
interrupt to the display device handler. 

(4) If a light pen hit occurs on the tracking pattern, 
move it in the appropriate direction and return to 
item (3) . 

(5) If a pushbutton or manual interrupt occurs, read the 
indicator point position and the p_b values 

and return to the user program. 

e. Restrictions 

The values y and x are decimal integers not to exceed 
1023 in magnitude. 

f. Example 

CALL TRACK (Y2 , X2 ,NAME (1) , PB) 

2.4 RELOCATABLE DISPLAY FILES 

The subroutines DYSET and DYLINK are used to allow display main or 
subpicture files, which refer to each other (via COPY or PLOT 
(0,...), to be output and input relocatably. Prior to outputting, 
interdependent display files and their user-assigned ASCII names 
are listed as arguments in a call to DYSET, which converts each sub- 
picture call to the ASCII name of the subpicture being called. 
After input, and prior to displaying, a corresponding call is made 
to DYLINK, which uses the listed ASCII names to reinstate the 
appropriate subpicture calls. Note that a display file cannot be 
displayed after having been processed by DYSET; DYLINK must be 

used to return it to displayable form. 
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2.4.1 DYS ET Subro ut ine 

The DYSET Subroutine converts subpicture calls to a symbolic form 
independent of core memory location, using specified ASCII strings, 
a. Form 

(1) FORTRAN: CALL DYSET (PNAMEl , ASCII 1 ,..., PNAMEN , ASCIIN) 



(2) Macro.-9: 



. GLOBL DYSET 

JMS* DYSET ,, 

JMP 2*N+.+l / Where N is the 

.DSA PNAME. J number of display 

.DSA ASCIli (files in the call. 



.DSA PNAMEN 
.DSA ASCIIN 

b. Input Variables: 

(1) The PNAMEs are the first locations of the inter- 
dependent display files, both calling and called. 

(2) The ASCIIs are the names of real arrays containing 

9 characters of 5/7 IOPS ASCII (which may be used for 
file names on output) . 

c. Output Variables: 
None . 

d. Description: 

(1) DYSET searches each listed display file (PNAME) for 
PJMPs. When it finds one, it appends the ASCII name 
of the file being called to the file being searched, 
if that name is not already there. 

(2) The operand of the PJMP is made a relative pointer 
to the ASCII name of the called display file. 

(3) The contents of PNAME (the display file length) are 
increased by 4 each time an ASCII name is appended 
to the file. 

e. Restrictions: 

(1) .Space provided for a display file must include 4 

locations for each subpicture call it makes, if it 
is to be set up for relocation. 
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(2) Display commands must not be added to a display 
file nor can it be displayed once it has been 
processed by DYSET, or until after it has been 
processed by DYLINK. (Thus DYSET must be called 
after DCLOSE for a main display file.) 

(3) It is the user's responsibility to list all 
relevant display files when calling DYSET. The 
subroutine does not check the list for complete- 
ness in order to allow multiple calls to it. 



2.4.2 DYLINK Subroutine 

The DYLINK Subroutine converts ASCII display file names to sub- 
picture calls on the corresponding display files, 
a . Form 

(1) FORTRAN: CALL DYLINK (PNAMEl , ASCIIl , . . . ,PNAMEN, ASCIIN) 

(2) Macro-9: 

DYLINK 



.GLOBL 

JMS* 

JMP 

.DSA 

.DSA 



DYLINK Jwhere N is the 

2*N+.+l <J number of display 
PNAMEl l^iles in the call. 

ASCIIl 



.DSA 
.DSA 



Input Variables 



PNAMEN 
ASCIIN 



(1) The PNAMEs are the first locations of the inter- 
dependent display files, both calling and called. 

(2) The ASCIIs are the names of real arrays containing 
9 characters of 5/7 IOPS ASCII (which may be used 
for file names on output) . 

c. Output Variables 
None , 

d. Description 

(1) DYLINK searches each listed display file for PJMPs. 
When it finds one it searches the argument list 
for a pointer to an ASCII string equal to the one 
pointed at by the operand of the P JMP . 
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(2) The operand of the PJMP is replaced by the 
address of the corresponding subpicture file, 
obtained from the argument list. 

(3) The contents of PNAME (the display file length) 
are reduced to the actual number of display 
commands in the file (excluding the ASCII blocks). 

e. Restrictions 

(1) It is the user's responsibility to list all 

relevant display files when calling DYLINK. The 
subroutine does not check the argument list for 
completeness, to allow multiple calls. 

f. Example 

(1) Display files have been created in integer arrays 
IDl and ID2. IDl uses files starting at ID2(1) 
and ID2(47) as subpictures (via calls to COPY). 
It is required to write the files out relocatably, 
on logical unit number 5. 

DIMENSION TITL1(2), TITL2(2), TITL3(2) 
DATA TITLl(l), TITL1 ( 2) /5HPICT1 , 4H BIN/, 

1 TITL2(1), TITL2(2)/5HPICT2, 4H BIN/, 

2 TITL3(1), TITL3(2)/5HPICT3, 4H BIN/ 



CALL DCLOSE (IDl(l)) 

CALL DYSET (IDl (1) ,TITL1 , ID2 (1) ,TITL2 , ID2 (47) ,TITL3) 

CALL ENTER (5,TITL1) 

J=ID1(1)+1 

WRITE (5) (ID1(1) , 1=1, J) 

CALL CLOSE (5,TITL1) 

CALL ENTER (5,TITL2) 

WRITE (5) (ID2(1) , 1=1,46 

CALL CLOSE (5,TITL2) 

CALL ENTER (5,TITL3) 

J=ID2 (47)+l 

WRITE (5) (ID2(1) , I=47,J) 

CALL CLOSE (5,TITL3) 
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(2) These display files are now to be input from unit 5 
into array IA. The same DIMENSION and DATA 
statements as shown in (1) are required. 



CALL SEEK (5,TITLl) 

READ (5) J, (IA(I+1) , 1=1, J) 

ID (1)=J 

CALL CLOSE (5,TITLl) 

CALL SEEK (5,TITL2) 

K=J+2 

READ (5) J, (IA(I+K) , 1=1, J) 

IA(K)+J 

CALL CLOSE (5,TITL2) 

CALL SEEK (5,TITL3) 

L=J+2 

READ (5) J, (IA(I+L) ,1+1, J) 

IA(L)=J 

CALL CLOSE (5,TITL3) 

CALL DYLINK ( IA ( 1 ) , TITL1 , IA (K) ,TITL2 , IA (L) ,TITL3) 

CALL DINIT (IA(1) ) 
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CHAPTER 3 
SYSTEM I/O DEVICE HANDLER 

The 339 Graphic Display Device Handler provides an interface 
between the user and the hardware which conforms to the con- 
ventions of the Input/Output and Keyboard Monitor Systems, as 
described in DEC manual Monitors, Advanced Software System , 
Doc. No. DEC-9A-MAD0-D. Input or output functions are initiated 
by standard user program commands and all display interrupt 
management is done automatically by the handler. The primary 
goals of the device handler are to relieve the user from writing 
his own device handling subprograms and to centralize all direct 
communication between the PDP-9 and the display controller. To 
start up a display, the user generates a display file consisting 
of display commands as described in the Programmed Buffered Display 
Type 339 User's Handbook , then calls the device handler to start it 
running. To interact with it, the device handler is used to read 
display controller registers and to dispatch on appropriate 
interrupts . 

3.1 LEGAL. FUNCTIONS 

3.1.1 . INIT (Initialize) Macro 

The macro .INIT causes the display to be initialized and must be 
given before any other I/O macro to the display is issued. The 
display is initialized according to five words of standard settings 
contained in the handler. The user may optionally substitute his 
own settings for the latter four of these. The first of the five 



3-1 



words contains the location of the pushdown pointer list, which 
is supplied by the Monitor. This location is returned to the 
user by the . INIT call. 

The device handler is connected to the Monitor interrupt system 
(PIC or API) in the same manner as other system device handlers. 

a . Form 

.INIT a,f,r 

b. Variables 

a = Device Assignment Table (.DAT) slot number (in octal) 
f = Initialization flag: 

use standard display initialization- 

1 user's initialization is pointed to by r. 

r = Optional pointer to user's initialization settings. 

c. Expansion 

LOC CAL =f7_ g +a 9_i7 

LOC+1 1 

LOC+2 r 

LOC+3 n /location of pushdown pointer list. 
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If f=l, r points to a block of four words containing initial 
settings for (a) Display status, (b) Pushbuttons through 5, 
(c) Pushbuttons 6 through 11, (d) Character generator. If 
the character generator word is 0, the standard setting described 
in sub-paragraph d. (1) (e) and the system character tables are 
used. For a detailed description of these settings refer to 
3.1.1.1, items a, b, and c. 
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d. Description 

(1) Initialize display (as described for the IOT's 
presented in a^ through c^ of 3 . 1 . 1 . 1) ; normal 
settings are: 

(a) Pushdown Pointer points to the location of 
the Pushdown Pointer List in the Monitor area. 

(b) Display status is set to 

1. disable edge flag interrupts 

2. enable light pen interrupts 

3 . reenable light pen one data request 
after hit 

4. allow full 13 bit x and y beam position 
registers 

5. enable the intensification bit in data state 

6. inhibit edge flags 

7. enable pushbutton interrupts 

8. enable internal stop interrupts 

(c) Pushbuttons through 5 are set to (off) . 

(d) Pushbuttons 6 through 11 are set to (off) . 

(e) Character generator is set to 

1. lower case 

2. 6-bit code 

3. high-order six bits of the character 
routines' starting address, within the 
Monitor. This assumes the use of the 
optional VC38 Character Generator. If 
the VA38 Character Generator is used, 
no special settings are required and 
Step (e) is omitted. 

(2) Return Pushdown Pointer list location to LOC+3. 

(3) Connect handler to PIC or API. 

(4) Clear the read-busy switch. 

NOTE: If f=0 and r=l , clearing the read-busy 
switch is the only action taken by the handler. 

3.1.1.1 INITIALIZATION SETTINGS - The standard settings and character 
tables for IOTs , SIC, LBF, and SCG are those used for the initializa- 
tion of the display. A complete description of each of these IOTs 
is given in the following: 

a. S IC 700665 Set Initial Conditions - SIC sets up a number 
of status registers in the display. The instruction 
enables four display flags onto the interrupt line, sets 
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the page size to 10, 11, 12, or 13 bits in x and y and 
light pen conditions. One of three options is available 
in the event the display is resumed after a light pen hit. 
The light pen can be left on; it can be turned off com- 
pletely; or it can be turned off until the completion of 
the present command, then automatically turned back on at 
the next data request. A register tells the display to 
ignore all edge flags; therefore, when the position register 
overflows, the edge flag is inhibited and the display con- 
tinues in a normal fashion. Another register overrides the 
intensification bit in data state, causing all beam move- 
ments to be intensified. This feature is used principally 
for diagnostic purposes. 



SIC 



Edge 
Inter- 
rupt 


L.P. 
Inter- 
rupt 


L.P. Resume 
Options 


Y Dimension 


X Dimension 


Intensify 

All 

Points 


Inhibit 
Edge 
Flags 


P.B. 
Inter- 
rupt 


Internal 
Stop 
Inter- 
rupt 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 



Bits 


Interpretation 


6 


Enable edge flag interrupt 


7 


Enable light pen flag interrupt 


8 


If bit is a 0, do not disable light pen after the resume; if bit is a 1 , bit 9 




indicates when to reenable the light pen 


9 


If bit is a 0, reenable light pen on the first data request after the display is 




resumed. If bit is a 1, the light pen hit is equivalent to a LPOF command. 


10,11 


Set y dimension 




00 


9.375 in. (10 bits) 




01 


18.75 in. (11 bits) 




10 


37.5 in. (12 bits) 




11 


75.0 in. (13 bits) 


12,13 


Set x dimension, same as y 


14 


Intensify all points 


15 


Inhibit edge flags 


16 


Enable interrupt on pushbutton hit 


17 


Enable interrupt on internal stop flag 
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LBF 700705 Load Break Field - This instruction has two 
functions. First, it loads the break field register when 
initializing the display; second, it sets the pushbuttons. 
Both functions have enable bits so that one may be 
executed without the other. If neither enable bit is up, 
the IOT pulses have other meanings (STPD-700704 and 
SPES-700701) . 



Break Field 


Pushbuttons 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 



Bits 


Interpretation 


6 


Enable change of break field 








7,8,9 


New break field 








10 


Enable change of pushbuttons 








11 


If bit is a 0, set pushbuttons 0-5 according to AC bits 
set pushbuttons 6-11 according to AC bits 12-17. 


12-17; 


if bit is a 


1, 


12-17 


New pushbutton states. 









b. SCG 700743 Set Character Generator -SCG sets the SAR, 
Case and CHSZ. 



Spare 


Case 


CHSZ 


Spare 


SAR 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 



Bit(s) 


Interpretation 


6,7,8 


Spare 


9 


Set case 0-lower 64 




1 -upper 64 


10 


Set code size 0-6 bit character format 




1-7 bit character format 


11 


Spare 


12-17 


Starting address register 
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3.1.2 .READ Macro 



The .READ macro is used for input to the user program from the hard- 
ware registers of the display controller. It provides the capabil- 
ity to read specified display registers at any time, or in response 
to specified interrupts. The user may select standard groups of 
registers to be read, in response to each possible display interrupt 
flag, or he may indicate his own grouping of flags and registers. 
This is done with an optional descriptive word following the .READ 
macro. The first six bits of that word indicate which interrupts 
are of interest, and the next 10 indicate the registers to read if 
any of those interrupts are set. 

.READ results in loading into the user-specified buffer a descriptive 
word of the same form as the optional argument, with only one of the 
first six bits turned on to indicate which interrupt flag actually 
was set. The next 10 bits indicate which registers were read, and 
the contents of those registers are stored in the following words of 
the buffer. Only one .READ is serviced at a time. If no interrupts 
are specified, results are returned immediately and another .READ can 
be honored. If any interrupts are specified, results are not returned 
until an interrupt has occurred. The user specifies an interrupt 
flag count (i.e. the number of set flags specified to be of interest); 
the .READ will accumulate this flag count before it finishes enter- 
ing the specified number of descriptive-word data groups into the 
buffer. Note that more than one flag may be set at interrupt time, 
depending on which flags have been enabled onto the interrupt line. 
A .READ given in the interim has the effect of a .WAIT, that is, the 
user program waits until the first .READ is completed, then accepts 
the second one and proceeds. 
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a. Form 

.READ a, m, 1, w 

nstd /optional word describing non-standard groups 

b. Variables 

a = .DAT slot number, 
m = Type of read 

Read PDP , SI, S2, PB now (no interrupt). 

1 Read PDP, XP , YP , DAC , PB if light pen interrupt 
flag is set. 

2 Read PDP, XP , YP , DAC, PB if manual interrupt flag 
is set • 

3 Read PDP, XP , YP DAC, PB if pushbutton interrupt 
flag is set- 

4 Read PDP, XP, YP, DAC, PB if edge flag interrupt 
flag is set . 

5 Read PDP, XP, YP , DAC, PB if internal stop 
interrupt flag is set. 

6 Read PDP, XP , YP , DAC, PB if external stop interrupt 
flag is set. 

7 nstd specifies registers and interrupt flags as 
follows: 

service light pen interrupt. 

service manual interrupt. 

service pushbutton interrupt. 

service edge flag interrupt. 

service internal stop interrupt. 

service external stop interrupt. 

read Pushdown Pointer (PDP) . 

read X-position register (XP) . 

read Y-position register (YP. 

read Display Address Counter (DAC) . 

read Status 1 (SI) . 

read Status 2 (S2) . 

read Pushbuttons (PB) . 

read Slave Group 1 (SGI) . 

read Slave Group 2 (SG2) - 

read Character Generator (CG) . 

no registers are read. 

1 = Return buffer address 

C(l) = Descriptive word showing what this interrupt 

was and which registers were read in the order 
listed above. 

C(l+1) = Contents of first register actually read. 

C(l+2) = Contents of second register read, etc. 

w = Interrupt count, number of interrupt occurrences this 
.READ will service before finishing. 
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bit 





on 


bit 


1 


on 


bit 


2 


on 


bit 


3 


on 


bit 


4 


on 


bit 


5 


on 


bit 


6 


on 


bit 


7 


on 


bit 


8 


on 


bit 


9 


on 


bit 


10 


on 


bit 


11 


on 


bit 


12 


on 


bit 


13 


on 


bit 


14 


on 


bit 


15 


on 


bit 


16 


on 



xpansion 




LOC 


CAL+m 6 _ 8 +a 9 _ 17 


LOC+1 


10 


LOC+2 


1 




• DEC 


LOC+3 


-w /decimal 


LOC+4 


nstd 



d. Description 

(1) Wait for previously requested interrupt (s) to occur. 

(2) Load user's previous .READ buffer with descriptive 
word and data. 

(3) Determine interrupts to service and registers 
for current .READ. 

(4) Turn on Input Busy flag. 

3.1.3 .WRITE Macro 

The macro .WRITE is used to transmit information from the user 
program to the display controller. Once a display file has been 
generated, its location is passed on to the display controller by 
a call to .WRITE, and the display starts up. .WRITE is also used 
to stop the display, by issuing an external stop, and to restart 
the display if it lias been stopped. A .WRITE to the display is 
completed immediately and requires no waiting, since this only 
involves issuing IOTs to the display. Executing a list of display 
commands is a continuing process and does not end until the user 
specifically ends it. 
a. Form 

.WRITE a, m, 1, w 
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Variables 

a = .DAT slot number (octal) . 

m = Type of write m 

restart display (L not required) . 

1 resume display after internal stop. 

NOTE: The display is automatically resumed 
after light pen or edge violation interrupts, 

2 stop display (issue external stop) . 
4 start display pointed at by 1 . 

1 = Display file starting address. 

w = Not used by this macro. 

Expansion 

CAL+mg_g +ag_i7 



LOC 

LOC+1 

LOC+2 



11 
1 

.DEC 
LOC+3 -w /decimal 
d. Description 

Determine function requested and issue corresponding 
IOTs. 
It should be noted that there are no restrictions regarding the 
manner in which the user may generate a display file. He is 
responsible for its contents and meaning, as well as such details 
as ending the file with a JUMP to its beginning to keep the image 
refreshed. One problem that frequently occurs is that of storage 
for display files, which tend to become large very rapidly. A 
solution to this problem is the use of a bulk storage device for 
temporary storage of these files. For example, a file-oriented 
device, such as DECtape , could be used very conveniently to store 
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display files by name; these files would then be read into core 

storage immediately before displaying. Each such file could be 

generated and then written on a DECtape by the sequence 

. INIT DECtape 
.ENTER filename 
.WRITE (in Dump Mode) 
.CLOSE DECtape 

This procedure uses Dump mode in order to leave the display file 

in the same format in which it was generated. Retrieval of the 

file would be accomplished by the sequence 

.INIT DECtape 
.SEEK filename 
.READ (in Dump Mode) 
.CLOSE DECtape 

A .WRITE to the display device handler, using the same buffer 

pointer, would then start the display running. 

Another approach would be to store several display files as one 
storage file. In this case, the .INIT DECtape and ENTER filename 
would refer to the storage file rather than an individual display 
file. A .WRITE, in Dump mode, would be given for each display file 
to be output. Such an approach requires the user to keep his own 
word counts (which could be done by creating a word, containing the 
length of the display file, at the beginning of each file). Re- 
trieval, in this case, is performed by an .INIT DECtape and a .SEEK 
filename, followed by a sequence of 

.READ count word 

.READ number of words specified by count 
word into display buffer 

for each display file making up the storage file. 
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3.1.4 .WAIT Macro 

The .WAIT macro is used to synchronize the user program with the 
interrupt activity of the display. .WAIT is only defined with 
respect to .READ. If a .WAIT is given, the user program waits 
until the previous .READ lias completed, that is, the specified 
number of interrupts has occurred. If the previous .READ specified 
more than one kind of interrupt flag, the descriptive word(s) in 
the input buffer can be interrogated to determine what flags were 
set. i .WAIT does not initiate any display activity. 

a. Form 
.WAIT a 

b. Variables 

a = .DAT slot number (octal) . 

c. Expansion 

LOC CAL +ag_i7 
LOC+1 12 

d. Description 

(1) Allow previous .READ to complete. 

(2) Load user's previous .READ buffer with descriptive 
word and data. 

(3) Turn off Input Busy flag. 

3.1.5 .WAITR Macro 

The .WAITR macro is used for the same purpose as the .WAIT macro, 
also allowing the user program to proceed in line if the previous 
.READ is complete. If it is not complete, control is given to 
the location in the user program specified by the .WAITR call. 
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This allows the user to branch to some other part of his program 
while wail i mj for the .READ to finish. The user must continue to 
check for completion by periodically issuing .WAITRs or by issuing 
a .WAIT. 

a. Form 

.WAITR a, addf 

b. Variables 

a = .DAT slot number (octa'l) . 

addr = location in the user program to branch to if 
input is not complete. 

c. Expansion 

LOC CAL +1000+a 9 _ 17 
LOC+1 12 
LOC+2 addr 

d. Description 

(1) Branch on .READ incomplete to addr. 

(2) Load user's previous .READ buffer with descriptive 
word and data. 

(3) Turn Input Busy flag off. 

3.1.6 . CLOSE Macro 

The .CLOSE macro is used to terminate the current display. External 
stop and Clear Flags IOTs are issued. It is up to the user to save 
the display file if desired. 

a. Form 
.CLOSE a 

b. Variables 

a = .DAT slot number (octal) . 
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c. Expansion 

LOC CAL +a 
LOC + 1 -6 

d. De:;cr i ption 

End current display. 

3.2 IGNORED FUNCTIONS 

The following System I/O macros are ignored by the 339 Display 
Device Handler: 

a. .-DLETE 

b. . RENAM 

c. .FSTAT 

d. .ENTER 

e. .CLEAR 

f. .MTAPE 

g. .SEEK 
hv .TRAN 

3.3 LEGAL DATA MODES 

a. Output - The data output to the display must be a valid 
display file, consisting of display commands in both 
control state and data state, as described in the 
Programmed Buffer Display Type 339 User's Handbook. The 
handler does no data conversion. 

b. Input - Input from the display consists of the contents 
of the various hardware registers in the display 
controller. These registers are described in the 
Programmed Buffer Display Type 339 User's Handbook. 
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APPENDIX A 



SAMPLE PROGRAMS 



This appendix contains throe self -annotated listings of 339 
Graphics display programs written in FORTRAN IV using the routines 
described in this manual. 
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HOUSE DISPLAY PROGRAM 

The following program listing contains the Subpicturo and 
Main Display File programs required to generate the "house", 
image shown in Figure A-l. 




CD 



339 AS3ABET 
AlLEt 



Figure A-l, House Display Image 
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C SAMPLE FORTkAM 
C FNlSlv - TO T 
COPYrU'.HT ]<)^ |j 

IiNTt.fit 
I.MTD.f. 
INTEufc. 

loi; l r. a 

I'MTtf ►: 

I ) ] M Ft S 

niMFi-s 

DATA S 
1 S A I- <" 
V S A I* ..< 

n a t a a 

1 AflUM 



C CLFa< 



C (>KA« 



V 

;< 

' I) 

1 

FJR 

»■' 

M 

VK!<T 



C UK Aw 



3H 

C ORfGl 

4fc> 



r: 
I 
i; 

•C 

Htn| 

n 
c 
I 

n 
n 

OF 

r 
c 
c 
c 

C POSi I \< 'M 

n 

r 

A 

1 

c 
c 

4A 

C 

c 
n 
r: 

r 

1R 

C 

r 



c • n R A w 

c 

c 



1 7 



C CENTER 



MuIjC 

'ict.« I 

ATA L 

/<*/, 

sr io 

I NfjI'W 
Od.SF( 
ICAl 

U I'' 
ALL L 
F ( I . 
ALL L 
Of T.I .J 
(•ONTA 
U 6 V 
ALL L 
F ( I 
ALL L 
OivT I n 

MOOS 
ALL L 
ALL L 
ALL L 
ALL L 
flFAf- 
ALL I. 
M A H A C 

S* / 
1 Q f-A 
ALL 1 
ALL 
ILHI 
ALL 
ALL 
ALL 
ALL 
ALL 



t-WOGWA 

f st n I S 
KHTAL 

^ H'j.uF 
!•• '-AINF 
t 1 - J .3 . P M 
■ •• t (4H 
I0 ! " SAM 
III"! W I N 

1 • i • v « A I 

A •* 1 ( 1 ) . 
I 1 ) , SAM 
( D . SA 
l'l)>-(1 )/ 
.1 )/?HtY 
T ( 1 ) ,m() 

'» 1 1 '"' . 4 H W 
Y it. ,fl\, 

y , x / y * 5 
r: a t |(i ; \S 

( J. ) s •/ 
i ) - i 

' A' S OF 
1=1,3 
I «i (-1 
fU.l) C, 
1\> (15 
■it. 



M USING SU&PICTUHF.MA1N FILF AND I NPUT ROUT I NFS 

PLAY F ILE LOAD/UNLUMJ - 

EQUIPMENT CORP. , MAY" ARU. MASS. 

W, HOUSE 

F, SCALE, RL1.MK, COP! , Y,X 

L.EPGE.niSPL.RLl ,Pka,«| 

TN.LTPN 

) ,U(12v}) ,C(40) 

1(2), SAM?(?), SA*,J{2) 

DOW (40) , HOUSE (1?0) , AUPH( 4 ) , HOUPT(?) . WINPT(2) 

NFL(4 t «!) , EDGE C 4 ) ,Ph(1 ?.) 

S AMi'( 2 ) /SHO I SPL . 4 „is I i\i / , 
2(2)/SHrj[SPL,4H?HI M/ , 
M3(?)/SH0lSPL,4h3Hl«/ 

5H339 A/, ADDR(?)/'iH'-:SAHF/,AnDR(3)/t>HT ALL/, 
/. 

UPT(2)V^HH0USR,4H h IN/, ^INPT( 1 ) , WINPT<2>/ 
HlN/ 

SCALt/3*l/«PRAM, lM/2«*/,nFF,COPl/2»0/,HLIM 
M/.L PEN/4/ 

OF WINDOW AND HOUbf TU INDlCATf NEW FILES. 



fclNUOw {(IHIGIivsUPPi- H LEFT CORNER) 

5(*»M,1»W!N00W<1)-) 

TO 2<it 
, b , f ) ) 

OF WINDOW (RETURNS FO ORIGIN) 



( 



1.4 

I 4. 

.*- ■'. 4) 
IKf (S0 
UF 

> = LOWER 

I ■'« t- ( « , 



-lH/,,1 ) 
GO TO 4'/ 
, 1 14« , PI ) 

LEFT CORNER 
5H/J.1 .'HOUSE ( 1) ) 

T.f (/,. -5/)^,l) 

1 -,(■ C-583.«,l,H0USF(l ) ) 

KJ'v t. tTTFWS 

I^F (100,25.0) 

TK W S FROM A-DDR. CHARACTERS ARE PLUTTfc'l) ON 

Sk.IT MATRIX WITH 2 RASTL r ' U.mUS HETWFfcN. 17«7 = 

ST f R UNITS OF HEAM 1 SPL a(;k MF>IT IN X . ( d IN Y) 

^ <T («00R(1 ) .1H) 

i- XT( AUDR(3) ,7,H0USE(1) ) 

liV'FR AOORFSS 
INF ( 1 5fl,-i! I 5,ei) 

(i/',-5H.l) 

( 25, PI, 1 > 

(Mii5(*"#1 ) 

(-25,^,1) 



c [ir». « on 



ALL L 
ALL L 



I iNjF 

INF 
INF 

lr" 

I M t 

i ;(' 



(-150.117,«) 

(2HH,^.l ) 
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c nw«i 



C IJH/w. Rf 



C UNA 



C CLOSF F 



C USE 

C INI 



1A I 

Tl Al. 



C DRAW BA 



C LOCATE 



C WaI 
200 



C PB5 
400 
C PB4 

C PR3 

C PB2 



T HF 

>JKI 
UK I 
WNI 
ADD 



CAL 

cal 

Ca! 
C Al 

CAI. 

«.:al 
f: al 

v • 1 1 l> 

Hal 

CAL 

CAL 

f'AL 

r '« L 

C. A L 
'>. ■< 

i;ai. 
c a i. 

CAL 

Tf ;ji': 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 

IGUR 
CAL 

N F I 

I<*E 
MA I 
CAL 
CAL 

CKGR 
CAL 
CAL 
CAL 
CAL 
CAL 

AND 
CAL 
CAL 
CAL 
CAL 

KF. F 
IF 
IF 
CO 

TFS 
IF 

TFS 
IF 

TFS 
IF 

S AM 
IF 



L 
L 
I. L 
I. L 
I. L 



L \U 

L I ;•■• 

1. I '< 

LI'M 

1. I H 
L I IN 

LIN 

L Pvj 
LIN 
LIN 
L ',n 
(^l 
L I i'j 



l. 
L 
S 

L 

L 
L 
L 
L 

L 

L 
L. 
L 
A 
L 
L 
L 
L 
L 
L 
L 
L 
F 
L 
LF 

DIS^L 
MFl< 1 

L UllM 

L FLO 

L SFT 
FLO 
PLO 
Pi. 
PLO 
I) I' AW 
L PLO 
L Pl.O 
L PLO 
L PLO 
OR PU 
( P ri T !\i 
(i. Tf'N 
10 ?V) 
AMD R 

<PF?(f> 

AMD R 
(PFH5 
« KF A 
< H 6 I 4 
OTHER 
(PtU3 



I « F ( » . 1 fl itf , 1 ) 

l\-f (-200,0,1) 

livt (V5.-V5.0) 

I. a ( 10.0, 1 .HOtlSF ( 1 ) ) 

I'-* 1 ( .. . 1 1* , 1 > 

I ■! •• (-10,0,1) 

IV (..,-10,1) 



•<< V'Ti-M I NT , 7,HUUSF(1) ) 
U' (405,-205,0) 

hhy ( WINQ0W( 1) ) 
I ii ; (/i, Jdw.M) 
0H V ( WINDOW (1)) 

'ft [IK I NT. 5) 



( ■)&, 185,0) 
(200,-275,1 ) 
(-200,-275,1) 



MADE ABOVE 



( 100,450,/)) 
(100,0.1) 
(«» -559.0) 

( V>, 100,1 ) 
F (-10,-40,0) 
F (/i,-20.1) 
r (-10.-15.0) 
f ('.-'.50,1) 
■'•M HACK TO ORIGIN) 
F (-730.-410,0) 

b INPUT ROUTINFS WITH SU--.P I CTURES 
AY, SET SCALF=0, INTENS1TY=4 
)=ti 

IT(MAINFLd) ) 

T (PRAM, SCALE+INT+LPEN, 0,4,1, IN) - 



PT(10,10> 

T(L YNE.l 000,1 00.ON.EDGFM ) ) 

■TCI.YNE. 0,800, ON, E0GE(2) ) 

T(LYNE,-1000,100,ON,EDGE(3) ) 

T(LYNE. 0,-1000. ON, EDCE(4) ) 

HOUSE 

T(LYNE,50,50,OFF,DISPL) 

T(PRAM/BLINK,0N,BL1) 

T(COPI , HOUSE(l) .MAIN) 

T(PRAM, BLINK, OFF) 

SHRUTTON hit 

(PH) ) CO TO 400 

<LPY,LPX,NAME,PB) ) GO TO 100 

v* 

FAD WINDOW AND HOUSE AND RESTARTS 

) ) GO TO 410 i- 

FADS MAINFL.WINDOW AND HOUSE ALL TOGETHER. 

) ) GO TO 415 

OS MAINFL & HOUSE, THEN HOUSE AND WINDOW. 

) ) GO TO 416 

CALL TO THE WINDOW, THEN WRITES & HEADS ALL FILES, 
)) GO TO 417 
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C PB1 ^FSTARTS FRum THE BEGINNING, TO BE D^NF HEFORE EACH TEST. 

IF (HH( ?) ) GO TO 41U 

(.0 TO Ay. 
410 CAI t |uM '"if (MAINFK 1 ) ) 

CAI.l 1 1 v s* f (HOUSF(l). SAM1, WJNu.,H(D. SAM?) 

CAI L i :'!'<■ ~f (b, SAM1 ) 

I = HUWS»- ( '. ) + 1 

WRI U (<:,) (rlOUStC J) . J = l . I ) 

I =W [t'.in'»w( 1 ) +1 

WR I Th (^) ( rilNDOM J) , J = l, I ) 

CALL Ct.i) t F (5, SAM1 ) 

CALL SFr> (o, SAMl ) 

kEAU '(->) I, (H( J + D , Jsl. I ) 

^ ( 1 ) = I 

READ <^>) J, (C(K+1 ) ,K = 1, J) 

C(D = J 

CALL CLOSE (5, SAM1) 

CALL r.TXlMK (8(1), SAM1. C(D, S«M?i 

CALL 'PI Ml H MA I NFL (D > 

CALL HEHLOT (•» , d ( 1 > , HA I N) 

GO TO v/i 
41b CALL [;CL(:SF(MA!NFL(1) ) 

CALL HYS( r T(MAINFL(l) , SAM1 , HOUSE ( 1 ) , S AM? , W I NUOW ( D ,SAM3) 

CALL E^TFR(5.SAM1) 

I =MAIi"FL< t )+l 

WrtlH <^> (MAINFLC J) , J = l, I ) 

I =HUUSF ( 1 ) +1 

WRlTf (^) (Hi»'USE( J> ,.J.= 1 , I ) 

I =WlMfji)rt( D+l 

WRlfF (H) (rtlNDOWt J) , Jsl, I ) 

CALL CLuSF. (b.SAMl) 

CALL SEEK (S.SAMl V 

REAU(b) I 1 , ( A( J + l) , J = l , II ) 

A ( 1 > = 1 1 

REAL) (M U, (B(J + 1), Jsl, ID 

M 1 ) = I1 

REAL) <*.) II, (C(J + D, Jsl, ID 

C( 1 ) = 1 1 

CALL CLOSE(b.SAMl) 

CALL UYLINK(A(D »SAM1,B(D,SAM?,(;(D.SAM3) 

CALL lHNITU(D) 

GO TO ?.W 
416 CALL DCLQSF(MAINFL»(D ) 

CALL ■ -)YSFT( MAI NFL(l) , S AMI , HOUSF ( 1 ) .SAM?) 

CALL fJYSET(H0USE(D,SAM2,WINr)0wU > ,SAM3> 

CALL E'MTFR(5,SAM1 ) 

I=MAliMFL( 1)+1 

WHITF(5) (MAINFL( J) , J = l, I ) 

IsHOUSFd )+l 

WRITF (^) (HOUSE( J). J = l, I ) 

I=WlMjOw( 1 )+l 

WRIT! Ci) (WINDOW( J),J=1, 1) 

CALL CLOSE(b,SAMl ) 

CALL SFEK(b.SAMl) 

REALH5) 11 , ( A( J + l ) , J=l, ID 

A( 1 )- 11 

KEAU (S) II, (B( J + l) . J = l, ID 
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11 



<C( J+l) , J=1 ,11) 



417 



41tf 



ft < 1 > = I 1 
^FAl) <M 

C(1)s|l 

CM L CI ii'.f. Cj.SAMI ) 

CAl L UYt, I.Nn ( A( 1 ) ,SAMJ , R( 1 ) , SAM?) 

CALL r)YL I,NK(B<1 ) . SAH?,C(1 ) .SAMS) 

CALL ul'MlTUU) ) 

i\U T( 'H,<- 

CAl L Sf T*'-T< 460,245) 

CAl L IM liT ( i- , WINDOW(l) ) 

PAUM 

call dcll'SF 

CO TO ;>V>* 

MOVES THV HOUSF TO THE RIGHT, in h'ASTFR UNITS UP TO THE! EHGE 
IF (PH(J1)) X = MlN0(4<*d, X + 1H) 
NOv/ESs IT LEFT 1H UNITS 
IF (PHU'O) X=MAX0<2*,X-10) 
C PR7 ■< »'H" HUVfc. IT LEFT AND RIGHT TFN UNITS 
IF (Ph<9)) Y = MINf"<260. Y+10) 
■ IF (F'R(b) ) Y = MAXH(f),Y*-10> 
TURNS OFF THF: BLINKING 
IF (PR< 7) ) GO TO 60 
I = ON 

CO Tu 7v1 
IsOFF 

CALL RFPLOT(LYNE.Y.X,OFF,DISPL) 
CALL Rf PI.OUPHAM, BLINK, I ,BL1) 
AMI) WAIT FOR THE NEXT BUTTON PUSH 



C PBlrf 
C" IfRV 



OK 



m 



C Pfl6 ON 



60 

7n 

C CO HACK 



C PROCESS 
101* 



r, U T f i V 'A . 
LIGHT HE' 
IF (NAI'E 
IF (Na^E 
GO TO 7rf 
ENO 



HIT 
, E . 

to. 



FDGE(l) ) 
EOGE(4) ) 



Y = MIN0(?6.\ 
X = MI UV ( 4f,M, 



LPY) 

LPX) 
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TRACKING PROGRAM 

The following program is an example of the manner in which the 

FORTRAN Tracking subroutines may be employed in the operation of 
the 339 Graphics System. 



G sample f«ktka.% pwqgkam using the TRaCKINC SUBROUTINE 

r F.NTST7 ° 

COPYRIGHT 196rt, f ! [ i ; I T A L EQUIPMENT CORP., MaYima*0, mass. 

IWTu,!-p <l, X2, Y1.Y2, Y3.X3 

LUKICAI. *'H,LTPN,REPLOT 

Ul^hlvS iit'i ma INFL(201C> , PR(12) . NAI*£(5) 
C SET 'ip STaH UK TISPLAY 

y i ; = i v ■■/ 

M A I in F L < 1. 1 a w 
Y? = Yl 
X ? = X 1 

CALL 1 NIT (MAINFL(l) ) 
C SfT SCALED/-, ImTF>'S[TY = 5 

CAI L PL .UT(?,7,0,.S,1) 
CALL Sf- T^T( Yl.Xl) 

[1 Hi- 1, = 1 , K 

iVA.«E ( I ) =it 
H'/i CO* T I jljf! 

|N = 1 
ltffc LT = 1 
C niSPLAY TRACKING PATTERN WITH GIVEN COOKO I N'ATES . 

CALL ThACKCY2,X2.NAME(l ),PB) 
C CONTROL DIMES HE*E ''HEN A PUSHRUTTON OR m A NUaL INTERRUPT IS HIT 
105 IF d'HO)) CO TO B 

X2=IAHS(X2) 

t, T f i 11 i) 
C Hhh CONSTRAINS X (MAKES THE 00T MOVE VFKTJCALLY 

8 X2=-IAPS(X?) 

Ill' IF (Prt(liM) GO TO 9 

Y?=IAHS(Y?) 

GO Til in 
C PBS» rror-.'SThiA I NS Y (MAKES THE DOT MOVE HORIZONTALLY) 

9 y;j:-iaf<s<y?) 

Ill IF (PH( 11 ) ) GO TO 10 

IF (PB( 1?) ) GO TO 11 

IF (PH'D ) GO TO 1 

IF (PM(H) ) GO TO. 4 
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C Pf<7 k'FSTAHTS THE 11 1 SPLAY FILF. 
IF L»H< n > ) GO TO 90 
GO TO 1 H-,i 

c FRi'-i makes iwv is tble lines. 

Id L T = / 

c phi i makes visihle lines. 

11 CALL PI..OTM , IABS(Y2)-Yl, IABS(X2)-Xl ,LT,NAME3> 

IF (MAIN^L(I) .OF. 2^00) PAUSE l'P.l 

y;s = yi 

X 3 = X 1 

Y 1 = I t US ( Y 2 ) 

X 1 = I A m S ( / ? ) 

GO To U1 ■< 
C PH*3 CAUSES LINFS TO RE DELETED. PB1 
1 . IF (.N'H. (LTPN(NY,NX,NAME2 

IF (F'H( ^ ) ) GO TO 1M 

IF (NiA^t'-' .NE. -NAME3) GO TO 

C4LL DELETE (NAME2) 

Y 1 = Y 3 



PETUPNS TO TRACKING 
PH) ) ) GO TO 1 

12« 



x i = x ;< 

GO Ti. 1 
C ?S4Ah HEMOVFS THE INTENSITY BIT FROM Y AND THE ESCAPE BIT FROM X 
12M I=NAf- , E?- , iAlNFL<lH4)+1 

Y3 = MAINFl. ( I *1 1-2043 

X -5 = M A I r-.- F ( ( I*?)-2M8 
C CONVERT .SIGN-MAGMTUOE TO 2'S COMPLEMENT 

IE (Y3 .GE. 1024) Y3 = -( Y3-lk)24) 

IE (X3 .GE. 1024) X3 = -(X3-lk)?4) 

IE (HtPLOT(l,Y3.X3»i».NAHE2)) GO TO l 

PAUSE 
C PB4 INSERTS ANOTHER CALL TO TRACKING. 
4 I N - I N * 1 

IF ( IiM-5) ^.5,100 
<5 CALL TRACK(Y2,X2.NAMF( IN), Pb) 

LT = 1 

GO TO 1B 1 ) 

END 



READ AND DISPLAY SLIDES 

The following example program demonstrates the manner in which 
a series of Subpicture Display Files may be selected and dis- 
played using the 339 System as a "slide projector". 



c Kjr:ij !<»•.* i»h>u - r<v seminar slides. 

C SLlilKS 

C >V5V ->L JOT PNUJi CJQQ . . 

CJPYhI,HT 19»-B, !«1! : I T A L EQUIPMENT CORP., maYNARO, MASS. 
< !;\T M > w SLIOF .DUMMY 

I. Hi. I i.'.o • wT v.PH 

IIINU :- I iii h ;i( 1?) , SLinE^SBfl) .SUMM?) ,MA INFU50) .DUMMY(S) , 

1 SLiv." 1 ( ^;1) ,nUMNM(2) ,LNG(15) 

EXTERNAL T«CK 

OAT A SI ,j-l( L > ,SLMM1(?)',SLNMK3) ,^LMM1 (4 ) ,Sl.NMl<5) , SLNM1 (6) 

1. /*i*»>J. JO*, 4H R1N.5HSLI01 ,4H B 1 N » 5HSL. 102. 4H BIN/. 

' >Lf f 1 l 7 ) , 3LNMK8) , SLNMK9) , SL-MK1 ( 1-/ ) , SLNMK 11 ) , SLNMK 12) 

I /bUSl. m.3,4H PIN,5HSLID4,4H fl J N . 5HSL 105, 4H BIN/, 

4 SLi'^l ( T<> *SLNM1 (14) ,SLNM1(15) .SLNM1 (16) .S.LNMK17) .SLNMK18) 

"j /"JHbl. IM6.4H RIN,5HSLI07,4H B I N , 5hSL I OH , 4H RIN/, 

^ SLKK1 (19) .SLNMl (20) /5HSLin.9,4H RIM/ 

iiA^ A ul ,1 ,M< 1 ) . 0UMNM(?)/5H0UMMY , «H RH/ 
C SET MP A POll-TfH TM EACH SLIDE NAME 

NSt. HiK='l.' 

UN si 

no iri M = l.'VfSLIDE 

SLwm( 1 ) = S L i J "1 1 (2»M-1) .. 

SLM-H 2)=SLMM1(2»M) 

CALL SfcEMS.SLNM) 

LNC(M) =NU 

REM. (S) L 

LP-L + i-JN'-1 

READ OS) (SLIDF( J) . J = NN,I_P> 

NN=LP*1 

CALL CI. OSECJ.SLNM J* 
110 COM I -mUH 

c ream dummy soh-picture 

call oEk.k(s.dumnm) 

RE a-) ( '■ ) L 

READ (H) ( DUMMY ( I ) , I =1 . L ) 

CALL CI nSE(5.DUMNM) 
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C START 



10 
15 



20 
30 



C SHO 
60PI 



610 



C SHO 
900 

910 

920 



UP MAI 
MAIN 
CALL 
CALL 
CALL 
CALL 
CALL 
NAME 
IF ( 
K = 
DO 2 
1 = 12 
IF ( 
COM 
IF ( 
IF ( 
Msl.N 
IF ( 
IF ( 
CALL 
GO T 

w SL105 A 

N = LN 

CALL 
CALL 
IF ( 
CALL 
GO T 
w TRACKIN 
CALL 
IF ( 
CALL 
CALL 
CALL 
GO T 
END 



GET SET TO PICK SLIDES FROM PUSHBUTTONS, 



N FILE AND 
FL(1)=0 

OINIT(MAlNFLd) ) 

SFTPT(1000,15) 

PL0T(?,3,1,7) 

PLQT((*,SLIOE(l) .NAME) 

PLOT(0,DUMMY(1) .NAME2) 
3 = 
.NOT, (PBTNCPR) ) ) GO TO 10 



1=6 
-I 

VH( I ) 
IftiUE 
K ,£0 
K .GT 
C(K) 
K ,EQ 
K .EQ 
KFPl 
U 10 
NO SLI07 TOGETHER WHEN SLI06 IS HEOUFSTEO 

r, (S) 

HFPLt 

RFPLI 
.NOT. 

DFLF" 
(J 15 
G PAT" 

RF.PLI 
NAMES 

UNBLf 

TRACt 

RLANt 
15 



.12 

) K=K+2»«L 

. 0) GO TO 10 

. NSLIDE) GO TO 10 

. 7) GO TO 600 
. 10) GO TO 900 
OT(0,SLIDE(M) .NAME) 



.OT(0,SLIDE(M) .NAME) 
.OT(0,SLIDE(N) .NAME2) 

(P8TN(PB) ) ) GO TO 610 

TE(NAME?) 

TERN WITH SLID9 
.OT(0,SLIDE(M),NAME) 

) 910,920.910 
.NK(TRCK) 

:K(300.500.NAME3,PB) 
^K(TRCK) 



i-in 



